/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’96 / MenuHack / MenuHackSource.sit / MHHandler.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 4d 48 48 61 6e 64 | 6c 65 72 2e 63 00 00 00 |..MHHand|ler.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 32 21 00 | 00 01 9a ad f0 ef 26 ad |.....2!.|......&.|
|00000060| f0 ef 26 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..&.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d3 9a 00 00 |........|........|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 0d 23 0d 23 09 4d 65 6e | 75 48 61 63 6b 20 63 6f |.#.#.Men|uHack co|
|000000e0| 64 65 2c 20 75 73 65 73 | 20 47 4e 45 46 69 6c 74 |de, uses| GNEFilt|
|000000f0| 65 72 20 74 6f 20 68 61 | 63 6b 20 69 6e 74 6f 20 |er to ha|ck into |
|00000100| 4e 65 74 73 63 61 70 65 | 20 66 72 6f 6d 20 6f 6e |Netscape| from on|
|00000110| 65 20 61 70 70 20 74 6f | 20 61 6e 6f 74 68 65 72 |e app to| another|
|00000120| 2e 0d 23 0d 23 09 4d 48 | 48 61 6e 64 6c 65 72 2e |..#.#.MH|Handler.|
|00000130| 63 09 2d 09 48 61 6e 64 | 6c 65 20 74 68 65 20 63 |c.-.Hand|le the c|
|00000140| 6c 69 63 6b 73 2c 20 64 | 72 61 77 2c 20 65 74 63 |licks, d|raw, etc|
|00000150| 2e 0d 23 0d 23 09 43 6f | 70 79 72 69 67 68 74 20 |..#.#.Co|pyright |
|00000160| a9 20 43 45 20 53 6f 66 | 74 77 61 72 65 2c 20 49 |. CE Sof|tware, I|
|00000170| 6e 63 2e 2c 20 49 6e 63 | 2e 20 31 39 39 36 0d 23 |nc., Inc|. 1996.#|
|00000180| 09 41 6c 6c 20 72 69 67 | 68 74 73 20 72 65 73 65 |.All rig|hts rese|
|00000190| 72 76 65 64 2e 0d 23 0d | 2d 2d 2d 2d 2d 2d 2d 2d |rved..#.|--------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 0d 23 69 6e 63 6c 75 |------*/|..#inclu|
|000001f0| 64 65 20 22 4d 65 6e 75 | 48 61 63 6b 44 61 74 61 |de "Menu|HackData|
|00000200| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 3c 50 4c |.h".#inc|lude <PL|
|00000210| 53 74 72 69 6e 67 46 75 | 6e 63 73 2e 68 3e 0d 23 |StringFu|ncs.h>.#|
|00000220| 69 6e 63 6c 75 64 65 20 | 3c 46 6f 6c 64 65 72 73 |include |<Folders|
|00000230| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 73 74 |.h>.#inc|lude <st|
|00000240| 72 69 6e 67 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |ring.h>.|#include|
|00000250| 20 3c 54 65 78 74 53 65 | 72 76 69 63 65 73 2e 68 | <TextSe|rvices.h|
|00000260| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 22 49 43 41 50 |>.#inclu|de "ICAP|
|00000270| 49 2e 68 22 09 2f 2f 20 | 49 6e 74 65 72 6e 65 74 |I.h".// |Internet|
|00000280| 20 63 6f 6e 66 69 67 20 | 73 74 75 66 66 0d 23 69 | config |stuff.#i|
|00000290| 6e 63 6c 75 64 65 20 22 | 6a 47 4e 45 4c 69 62 2e |nclude "|jGNELib.|
|000002a0| 68 22 0d 0d 74 79 70 65 | 64 65 66 20 70 61 73 63 |h"..type|def pasc|
|000002b0| 61 6c 20 6c 6f 6e 67 20 | 28 2a 4d 4b 43 61 6c 6c |al long |(*MKCall|
|000002c0| 65 72 29 28 73 68 6f 72 | 74 20 63 68 29 3b 0d 74 |er)(shor|t ch);.t|
|000002d0| 79 70 65 64 65 66 20 70 | 61 73 63 61 6c 20 6c 6f |ypedef p|ascal lo|
|000002e0| 6e 67 20 28 2a 4d 53 43 | 61 6c 6c 65 72 29 28 50 |ng (*MSC|aller)(P|
|000002f0| 6f 69 6e 74 20 73 74 61 | 72 74 70 6f 69 6e 74 29 |oint sta|rtpoint)|
|00000300| 3b 0d 0d 74 79 70 65 64 | 65 66 20 73 74 72 75 63 |;..typed|ef struc|
|00000310| 74 20 7b 0d 09 4f 53 54 | 79 70 65 09 09 67 42 72 |t {..OST|ype..gBr|
|00000320| 6f 77 73 65 72 43 72 65 | 61 74 6f 72 3b 0d 09 42 |owserCre|ator;..B|
|00000330| 6f 6f 6c 65 61 6e 09 09 | 67 49 48 61 76 65 50 61 |oolean..|gIHavePa|
|00000340| 74 63 68 65 64 3b 0d 09 | 42 6f 6f 6c 65 61 6e 09 |tched;..|Boolean.|
|00000350| 09 67 54 69 6d 65 54 6f | 42 75 69 6c 64 4d 65 6e |.gTimeTo|BuildMen|
|00000360| 75 3b 0d 09 73 68 6f 72 | 74 09 09 6d 79 6d 65 6e |u;..shor|t..mymen|
|00000370| 75 49 44 3b 0d 09 4d 4b | 43 61 6c 6c 65 72 09 53 |uID;..MK|Caller.S|
|00000380| 61 76 65 64 4d 65 6e 75 | 4b 65 79 3b 0d 09 4d 53 |avedMenu|Key;..MS|
|00000390| 43 61 6c 6c 65 72 09 53 | 61 76 65 64 4d 65 6e 75 |Caller.S|avedMenu|
|000003a0| 53 65 6c 65 63 74 3b 0d | 09 0d 09 6c 6f 6e 67 09 |Select;.|...long.|
|000003b0| 09 6e 75 6d 62 65 72 6f | 66 69 74 65 6d 73 3b 0d |.numbero|fitems;.|
|000003c0| 09 6c 6f 6e 67 09 09 77 | 68 69 63 68 69 74 65 6d |.long..w|hichitem|
|000003d0| 3b 0d 09 53 74 72 32 35 | 35 09 09 73 55 52 4c 3b |;..Str25|5..sURL;|
|000003e0| 0d 09 53 74 72 32 35 35 | 09 09 73 54 69 74 6c 65 |..Str255|..sTitle|
|000003f0| 3b 0d 09 53 74 72 32 35 | 35 09 09 73 43 6f 6d 6d |;..Str25|5..sComm|
|00000400| 65 6e 74 3b 0d 09 42 6f | 6f 6c 65 61 6e 09 09 54 |ent;..Bo|olean..T|
|00000410| 69 6d 65 54 6f 52 75 6e | 3b 0d 09 0d 09 7d 20 73 |imeToRun|;....} s|
|00000420| 47 75 6c 6c 44 61 74 61 | 2c 20 2a 73 47 75 6c 6c |GullData|, *sGull|
|00000430| 44 61 74 61 50 74 72 2c | 20 2a 2a 73 47 75 6c 6c |DataPtr,| **sGull|
|00000440| 44 61 74 61 48 64 6c 3b | 0d 0d 73 47 75 6c 6c 44 |DataHdl;|..sGullD|
|00000450| 61 74 61 09 74 68 65 67 | 6c 6f 62 61 6c 73 3b 0d |ata.theg|lobals;.|
|00000460| 73 47 75 6c 6c 44 61 74 | 61 50 74 72 09 67 4f 75 |sGullDat|aPtr.gOu|
|00000470| 72 47 6c 6f 62 61 6c 73 | 20 3d 20 6e 69 6c 3b 0d |rGlobals| = nil;.|
|00000480| 0d 0d 49 43 49 6e 73 74 | 61 6e 63 65 20 67 69 6e |..ICInst|ance gin|
|00000490| 73 74 3b 0d 0d 70 61 73 | 63 61 6c 20 42 6f 6f 6c |st;..pas|cal Bool|
|000004a0| 65 61 6e 09 43 61 6c 6c | 65 64 48 61 6e 64 6c 65 |ean.Call|edHandle|
|000004b0| 41 6e 45 76 65 6e 74 28 | 45 76 65 6e 74 52 65 63 |AnEvent(|EventRec|
|000004c0| 6f 72 64 2a 20 65 76 65 | 6e 74 2c 20 73 47 75 6c |ord* eve|nt, sGul|
|000004d0| 6c 44 61 74 61 50 74 72 | 09 67 47 6c 6f 62 61 6c |lDataPtr|.gGlobal|
|000004e0| 73 50 74 72 29 3b 0d 76 | 6f 69 64 20 47 65 74 55 |sPtr);.v|oid GetU|
|000004f0| 52 4c 49 6e 66 6f 28 73 | 47 75 6c 6c 44 61 74 61 |RLInfo(s|GullData|
|00000500| 50 74 72 09 67 47 6c 6f | 62 61 6c 73 50 74 72 29 |Ptr.gGlo|balsPtr)|
|00000510| 3b 0d 0d 73 74 61 74 69 | 63 20 42 6f 6f 6c 65 61 |;..stati|c Boolea|
|00000520| 6e 20 4c 61 75 6e 63 68 | 65 64 41 70 70 6c 69 63 |n Launch|edApplic|
|00000530| 61 74 69 6f 6e 28 46 53 | 53 70 65 63 20 2a 66 73 |ation(FS|Spec *fs|
|00000540| 53 70 65 63 2c 0d 09 09 | 09 09 09 09 09 09 50 72 |Spec,...|......Pr|
|00000550| 6f 63 65 73 73 53 65 72 | 69 61 6c 4e 75 6d 62 65 |ocessSer|ialNumbe|
|00000560| 72 20 2a 70 72 6f 63 65 | 73 73 53 65 72 69 61 6c |r *proce|ssSerial|
|00000570| 4e 75 6d 62 65 72 29 20 | 09 09 09 09 2f 2f 20 3c |Number) |....// <|
|00000580| 2d 0d 09 2f 2f 20 57 65 | 20 72 65 74 75 72 6e 20 |-..// We| return |
|00000590| 74 72 75 65 20 61 6e 64 | 20 74 68 65 20 6c 61 75 |true and| the lau|
|000005a0| 6e 63 68 65 64 20 61 70 | 70 27 73 20 70 72 6f 63 |nched ap|p's proc|
|000005b0| 65 73 73 20 73 65 72 69 | 61 6c 20 6e 75 6d 62 65 |ess seri|al numbe|
|000005c0| 72 0d 09 2f 2f 20 69 66 | 20 74 68 65 20 6c 61 75 |r..// if| the lau|
|000005d0| 6e 63 68 20 77 61 73 20 | 73 75 63 63 65 73 73 66 |nch was |successf|
|000005e0| 75 6c 2e 0d 09 2f 2f 20 | 4e 6f 74 69 63 65 20 74 |ul...// |Notice t|
|000005f0| 68 61 74 20 77 65 20 63 | 61 6c 6c 20 45 76 65 6e |hat we c|all Even|
|00000600| 74 41 76 61 69 6c 28 29 | 20 6f 6e 63 65 3b 20 74 |tAvail()| once; t|
|00000610| 68 69 73 20 63 61 75 73 | 65 73 20 74 68 65 20 61 |his caus|es the a|
|00000620| 70 70 6c 69 63 61 74 69 | 6f 6e 0d 09 2f 2f 20 74 |pplicati|on..// t|
|00000630| 6f 20 61 63 74 75 61 6c | 6c 79 20 72 75 6e 20 62 |o actual|ly run b|
|00000640| 65 66 6f 72 65 20 77 65 | 20 72 65 74 75 72 6e 2e |efore we| return.|
|00000650| 0d 09 7b 0d 09 4f 53 45 | 72 72 09 09 09 09 09 65 |..{..OSE|rr.....e|
|00000660| 72 72 6f 72 3b 0d 09 4c | 61 75 6e 63 68 50 61 72 |rror;..L|aunchPar|
|00000670| 61 6d 42 6c 6f 63 6b 52 | 65 63 09 6c 61 75 6e 63 |amBlockR|ec.launc|
|00000680| 68 50 42 3b 0d 09 45 76 | 65 6e 74 52 65 63 6f 72 |hPB;..Ev|entRecor|
|00000690| 64 20 09 09 09 69 67 6e | 6f 72 65 4d 61 63 45 76 |d ...ign|oreMacEv|
|000006a0| 65 6e 74 3b 0d 09 0d 09 | 6d 65 6d 73 65 74 28 28 |ent;....|memset((|
|000006b0| 42 79 74 65 2a 29 26 6c | 61 75 6e 63 68 50 42 2c |Byte*)&l|aunchPB,|
|000006c0| 20 30 2c 20 73 69 7a 65 | 6f 66 28 6c 61 75 6e 63 | 0, size|of(launc|
|000006d0| 68 50 42 29 29 3b 0d 0d | 09 6c 61 75 6e 63 68 50 |hPB));..|.launchP|
|000006e0| 42 2e 6c 61 75 6e 63 68 | 42 6c 6f 63 6b 49 44 20 |B.launch|BlockID |
|000006f0| 3d 20 65 78 74 65 6e 64 | 65 64 42 6c 6f 63 6b 3b |= extend|edBlock;|
|00000700| 0d 09 6c 61 75 6e 63 68 | 50 42 2e 6c 61 75 6e 63 |..launch|PB.launc|
|00000710| 68 45 50 42 4c 65 6e 67 | 74 68 20 3d 20 65 78 74 |hEPBLeng|th = ext|
|00000720| 65 6e 64 65 64 42 6c 6f | 63 6b 4c 65 6e 3b 0d 09 |endedBlo|ckLen;..|
|00000730| 6c 61 75 6e 63 68 50 42 | 2e 6c 61 75 6e 63 68 46 |launchPB|.launchF|
|00000740| 69 6c 65 46 6c 61 67 73 | 20 3d 20 6c 61 75 6e 63 |ileFlags| = launc|
|00000750| 68 4e 6f 46 69 6c 65 46 | 6c 61 67 73 3b 0d 09 6c |hNoFileF|lags;..l|
|00000760| 61 75 6e 63 68 50 42 2e | 6c 61 75 6e 63 68 43 6f |aunchPB.|launchCo|
|00000770| 6e 74 72 6f 6c 46 6c 61 | 67 73 20 3d 20 6c 61 75 |ntrolFla|gs = lau|
|00000780| 6e 63 68 43 6f 6e 74 69 | 6e 75 65 20 7c 20 6c 61 |nchConti|nue | la|
|00000790| 75 6e 63 68 4e 6f 46 69 | 6c 65 46 6c 61 67 73 20 |unchNoFi|leFlags |
|000007a0| 7c 20 6c 61 75 6e 63 68 | 55 73 65 4d 69 6e 69 6d || launch|UseMinim|
|000007b0| 75 6d 3b 0d 09 6c 61 75 | 6e 63 68 50 42 2e 6c 61 |um;..lau|nchPB.la|
|000007c0| 75 6e 63 68 41 70 70 53 | 70 65 63 20 3d 20 66 73 |unchAppS|pec = fs|
|000007d0| 53 70 65 63 3b 0d 09 6c | 61 75 6e 63 68 50 42 2e |Spec;..l|aunchPB.|
|000007e0| 6c 61 75 6e 63 68 41 70 | 70 50 61 72 61 6d 65 74 |launchAp|pParamet|
|000007f0| 65 72 73 20 3d 20 6e 69 | 6c 3b 0d 09 65 72 72 6f |ers = ni|l;..erro|
|00000800| 72 20 3d 20 4c 61 75 6e | 63 68 41 70 70 6c 69 63 |r = Laun|chApplic|
|00000810| 61 74 69 6f 6e 28 28 4c | 61 75 6e 63 68 50 42 50 |ation((L|aunchPBP|
|00000820| 74 72 29 26 6c 61 75 6e | 63 68 50 42 29 3b 0d 09 |tr)&laun|chPB);..|
|00000830| 0d 09 69 66 20 28 21 65 | 72 72 6f 72 29 0d 09 09 |..if (!e|rror)...|
|00000840| 7b 0d 09 09 45 76 65 6e | 74 41 76 61 69 6c 28 65 |{...Even|tAvail(e|
|00000850| 76 65 72 79 45 76 65 6e | 74 2c 20 26 69 67 6e 6f |veryEven|t, &igno|
|00000860| 72 65 4d 61 63 45 76 65 | 6e 74 29 3b 09 09 2f 2f |reMacEve|nt);..//|
|00000870| 20 57 65 20 64 6f 20 74 | 68 69 73 20 73 6f 20 74 | We do t|his so t|
|00000880| 68 65 20 61 70 70 20 69 | 73 20 61 63 74 75 61 6c |he app i|s actual|
|00000890| 6c 79 20 72 75 6e 6e 69 | 6e 67 20 62 65 66 6f 72 |ly runni|ng befor|
|000008a0| 65 20 77 65 20 72 65 74 | 75 72 6e 2e 0d 09 09 2a |e we ret|urn....*|
|000008b0| 70 72 6f 63 65 73 73 53 | 65 72 69 61 6c 4e 75 6d |processS|erialNum|
|000008c0| 62 65 72 20 3d 20 6c 61 | 75 6e 63 68 50 42 2e 6c |ber = la|unchPB.l|
|000008d0| 61 75 6e 63 68 50 72 6f | 63 65 73 73 53 4e 3b 0d |aunchPro|cessSN;.|
|000008e0| 09 09 7d 0d 09 09 0d 09 | 72 65 74 75 72 6e 20 65 |..}.....|return e|
|000008f0| 72 72 6f 72 20 3d 3d 20 | 6e 6f 45 72 72 3b 0d 09 |rror == |noErr;..|
|00000900| 7d 0d 09 0d 09 0d 0d 73 | 74 61 74 69 63 20 42 6f |}......s|tatic Bo|
|00000910| 6f 6c 65 61 6e 20 4c 61 | 75 6e 63 68 41 70 70 6c |olean La|unchAppl|
|00000920| 69 63 61 74 69 6f 6e 49 | 6e 53 61 6d 65 44 69 72 |icationI|nSameDir|
|00000930| 65 63 74 6f 72 79 28 20 | 4f 53 54 79 70 65 20 6f |ectory( |OSType o|
|00000940| 73 74 43 72 65 61 74 6f | 72 2c 20 50 72 6f 63 65 |stCreato|r, Proce|
|00000950| 73 73 53 65 72 69 61 6c | 4e 75 6d 62 65 72 20 2a |ssSerial|Number *|
|00000960| 70 72 6f 63 65 73 73 53 | 65 72 69 61 6c 4e 75 6d |processS|erialNum|
|00000970| 62 65 72 20 29 0d 7b 0d | 09 42 6f 6f 6c 65 61 6e |ber ).{.|.Boolean|
|00000980| 20 66 52 65 73 75 6c 74 | 20 3d 20 66 61 6c 73 65 | fResult| = false|
|00000990| 3b 0d 09 46 53 53 70 65 | 63 09 66 73 53 70 65 63 |;..FSSpe|c.fsSpec|
|000009a0| 3b 0d 0d 09 46 43 42 50 | 42 52 65 63 20 73 50 42 |;...FCBP|BRec sPB|
|000009b0| 3b 0d 09 6d 65 6d 73 65 | 74 28 28 42 79 74 65 2a |;..memse|t((Byte*|
|000009c0| 29 26 73 50 42 2c 20 30 | 78 30 30 2c 20 73 69 7a |)&sPB, 0|x00, siz|
|000009d0| 65 6f 66 28 46 43 42 50 | 42 52 65 63 29 29 3b 0d |eof(FCBP|BRec));.|
|000009e0| 09 0d 09 73 50 42 2e 69 | 6f 4e 61 6d 65 50 74 72 |...sPB.i|oNamePtr|
|000009f0| 20 3d 20 28 53 74 72 69 | 6e 67 50 74 72 29 26 66 | = (Stri|ngPtr)&f|
|00000a00| 73 53 70 65 63 2e 6e 61 | 6d 65 3b 0d 09 73 50 42 |sSpec.na|me;..sPB|
|00000a10| 2e 69 6f 52 65 66 4e 75 | 6d 20 3d 20 43 75 72 52 |.ioRefNu|m = CurR|
|00000a20| 65 73 46 69 6c 65 28 29 | 3b 0d 09 0d 09 69 66 20 |esFile()|;....if |
|00000a30| 28 20 50 42 47 65 74 46 | 43 42 49 6e 66 6f 28 20 |( PBGetF|CBInfo( |
|00000a40| 26 73 50 42 2c 20 66 61 | 6c 73 65 20 29 20 3d 3d |&sPB, fa|lse ) ==|
|00000a50| 20 6e 6f 45 72 72 20 29 | 0d 09 7b 0d 09 09 43 49 | noErr )|..{...CI|
|00000a60| 6e 66 6f 50 42 52 65 63 | 09 63 50 42 3b 0d 09 09 |nfoPBRec|.cPB;...|
|00000a70| 4f 53 45 72 72 09 09 6f | 73 65 45 72 72 3b 0d 09 |OSErr..o|seErr;..|
|00000a80| 09 53 74 72 32 35 35 09 | 09 70 61 73 46 69 6c 65 |.Str255.|.pasFile|
|00000a90| 4e 61 6d 65 3b 0d 09 09 | 42 6f 6f 6c 65 61 6e 09 |Name;...|Boolean.|
|00000aa0| 09 66 46 6f 75 6e 64 20 | 3d 20 66 61 6c 73 65 3b |.fFound |= false;|
|00000ab0| 0d 0d 09 09 6d 65 6d 73 | 65 74 28 28 42 79 74 65 |....mems|et((Byte|
|00000ac0| 2a 29 26 63 50 42 2c 20 | 30 78 30 30 2c 20 73 69 |*)&cPB, |0x00, si|
|00000ad0| 7a 65 6f 66 28 46 43 42 | 50 42 52 65 63 29 29 3b |zeof(FCB|PBRec));|
|00000ae0| 0d 0d 09 09 63 50 42 2e | 68 46 69 6c 65 49 6e 66 |....cPB.|hFileInf|
|00000af0| 6f 2e 69 6f 4e 61 6d 65 | 50 74 72 20 3d 20 70 61 |o.ioName|Ptr = pa|
|00000b00| 73 46 69 6c 65 4e 61 6d | 65 3b 0d 09 09 63 50 42 |sFileNam|e;...cPB|
|00000b10| 2e 68 46 69 6c 65 49 6e | 66 6f 2e 69 6f 56 52 65 |.hFileIn|fo.ioVRe|
|00000b20| 66 4e 75 6d 20 3d 20 73 | 50 42 2e 69 6f 46 43 42 |fNum = s|PB.ioFCB|
|00000b30| 56 52 65 66 4e 75 6d 3b | 0d 09 09 63 50 42 2e 68 |VRefNum;|...cPB.h|
|00000b40| 46 69 6c 65 49 6e 66 6f | 2e 69 6f 44 69 72 49 44 |FileInfo|.ioDirID|
|00000b50| 20 3d 20 73 50 42 2e 69 | 6f 46 43 42 50 61 72 49 | = sPB.i|oFCBParI|
|00000b60| 44 3b 0d 0d 09 09 64 6f | 20 7b 0d 09 09 09 63 50 |D;....do| {....cP|
|00000b70| 42 2e 68 46 69 6c 65 49 | 6e 66 6f 2e 69 6f 44 69 |B.hFileI|nfo.ioDi|
|00000b80| 72 49 44 20 3d 20 73 50 | 42 2e 69 6f 46 43 42 50 |rID = sP|B.ioFCBP|
|00000b90| 61 72 49 44 3b 0d 09 09 | 09 63 50 42 2e 68 46 69 |arID;...|.cPB.hFi|
|00000ba0| 6c 65 49 6e 66 6f 2e 69 | 6f 46 44 69 72 49 6e 64 |leInfo.i|oFDirInd|
|00000bb0| 65 78 2b 2b 3b 0d 09 09 | 09 6f 73 65 45 72 72 20 |ex++;...|.oseErr |
|00000bc0| 3d 20 50 42 47 65 74 43 | 61 74 49 6e 66 6f 28 20 |= PBGetC|atInfo( |
|00000bd0| 26 63 50 42 2c 20 66 61 | 6c 73 65 20 29 3b 0d 09 |&cPB, fa|lse );..|
|00000be0| 09 09 69 66 20 28 20 6f | 73 65 45 72 72 20 3d 3d |..if ( o|seErr ==|
|00000bf0| 20 6e 6f 45 72 72 20 29 | 0d 09 09 09 09 66 46 6f | noErr )|.....fFo|
|00000c00| 75 6e 64 20 3d 09 28 20 | 63 50 42 2e 68 46 69 6c |und =.( |cPB.hFil|
|00000c10| 65 49 6e 66 6f 2e 69 6f | 46 6c 46 6e 64 72 49 6e |eInfo.io|FlFndrIn|
|00000c20| 66 6f 2e 66 64 54 79 70 | 65 20 3d 3d 20 27 41 50 |fo.fdTyp|e == 'AP|
|00000c30| 50 4c 27 20 29 20 26 26 | 0d 09 09 09 09 09 09 09 |PL' ) &&|........|
|00000c40| 28 20 63 50 42 2e 68 46 | 69 6c 65 49 6e 66 6f 2e |( cPB.hF|ileInfo.|
|00000c50| 69 6f 46 6c 46 6e 64 72 | 49 6e 66 6f 2e 66 64 43 |ioFlFndr|Info.fdC|
|00000c60| 72 65 61 74 6f 72 20 3d | 3d 20 6f 73 74 43 72 65 |reator =|= ostCre|
|00000c70| 61 74 6f 72 20 29 3b 0d | 0d 09 09 7d 20 77 68 69 |ator );.|...} whi|
|00000c80| 6c 65 20 28 20 21 66 46 | 6f 75 6e 64 20 26 26 20 |le ( !fF|ound && |
|00000c90| 28 20 6f 73 65 45 72 72 | 20 3d 3d 20 6e 6f 45 72 |( oseErr| == noEr|
|00000ca0| 72 20 29 20 29 3b 0d 09 | 09 0d 09 09 69 66 20 28 |r ) );..|....if (|
|00000cb0| 20 66 46 6f 75 6e 64 20 | 29 0d 09 09 7b 0d 09 09 | fFound |)...{...|
|00000cc0| 09 66 73 53 70 65 63 2e | 76 52 65 66 4e 75 6d 20 |.fsSpec.|vRefNum |
|00000cd0| 3d 20 73 50 42 2e 69 6f | 46 43 42 56 52 65 66 4e |= sPB.io|FCBVRefN|
|00000ce0| 75 6d 3b 0d 09 09 09 66 | 73 53 70 65 63 2e 70 61 |um;....f|sSpec.pa|
|00000cf0| 72 49 44 20 3d 20 73 50 | 42 2e 69 6f 46 43 42 50 |rID = sP|B.ioFCBP|
|00000d00| 61 72 49 44 3b 0d 09 09 | 09 42 6c 6f 63 6b 4d 6f |arID;...|.BlockMo|
|00000d10| 76 65 28 20 70 61 73 46 | 69 6c 65 4e 61 6d 65 2c |ve( pasF|ileName,|
|00000d20| 20 66 73 53 70 65 63 2e | 6e 61 6d 65 2c 20 70 61 | fsSpec.|name, pa|
|00000d30| 73 46 69 6c 65 4e 61 6d | 65 5b 30 5d 20 2b 20 31 |sFileNam|e[0] + 1|
|00000d40| 20 29 3b 0d 0d 09 09 09 | 66 52 65 73 75 6c 74 20 | );.....|fResult |
|00000d50| 3d 20 4c 61 75 6e 63 68 | 65 64 41 70 70 6c 69 63 |= Launch|edApplic|
|00000d60| 61 74 69 6f 6e 28 20 26 | 66 73 53 70 65 63 2c 20 |ation( &|fsSpec, |
|00000d70| 70 72 6f 63 65 73 73 53 | 65 72 69 61 6c 4e 75 6d |processS|erialNum|
|00000d80| 62 65 72 20 29 3b 0d 09 | 09 7d 0d 09 7d 0d 0d 09 |ber );..|.}..}...|
|00000d90| 72 65 74 75 72 6e 20 66 | 52 65 73 75 6c 74 3b 0d |return f|Result;.|
|00000da0| 7d 0d 09 0d 0d 73 74 61 | 74 69 63 20 42 6f 6f 6c |}....sta|tic Bool|
|00000db0| 65 61 6e 20 4c 61 75 6e | 63 68 41 70 70 42 79 53 |ean Laun|chAppByS|
|00000dc0| 69 67 28 20 4f 53 54 79 | 70 65 20 6f 73 74 43 72 |ig( OSTy|pe ostCr|
|00000dd0| 65 61 74 6f 72 2c 20 50 | 72 6f 63 65 73 73 53 65 |eator, P|rocessSe|
|00000de0| 72 69 61 6c 4e 75 6d 62 | 65 72 20 2a 70 72 6f 63 |rialNumb|er *proc|
|00000df0| 65 73 73 53 65 72 69 61 | 6c 4e 75 6d 62 65 72 20 |essSeria|lNumber |
|00000e00| 29 0d 7b 0d 09 42 6f 6f | 6c 65 61 6e 20 66 52 65 |).{..Boo|lean fRe|
|00000e10| 73 75 6c 74 20 3d 20 66 | 61 6c 73 65 3b 0d 09 42 |sult = f|alse;..B|
|00000e20| 6f 6f 6c 65 61 6e 09 66 | 46 6f 75 6e 64 20 3d 20 |oolean.f|Found = |
|00000e30| 66 61 6c 73 65 3b 0d 09 | 46 53 53 70 65 63 09 66 |false;..|FSSpec.f|
|00000e40| 73 53 70 65 63 3b 0d 0d | 09 44 54 50 42 52 65 63 |sSpec;..|.DTPBRec|
|00000e50| 09 73 64 50 42 3b 0d 09 | 73 68 6f 72 74 09 72 65 |.sdPB;..|short.re|
|00000e60| 66 6e 75 6d 3b 0d 09 4f | 53 45 72 72 09 09 61 6e |fnum;..O|SErr..an|
|00000e70| 45 72 72 20 3d 20 6e 6f | 45 72 72 3b 0d 09 53 74 |Err = no|Err;..St|
|00000e80| 72 32 35 35 09 09 70 61 | 73 46 69 6c 65 4e 61 6d |r255..pa|sFileNam|
|00000e90| 65 3b 0d 09 0d 09 48 50 | 61 72 61 6d 42 6c 6f 63 |e;....HP|aramBloc|
|00000ea0| 6b 52 65 63 20 68 70 62 | 3b 0d 09 73 68 6f 72 74 |kRec hpb|;..short|
|00000eb0| 09 09 76 69 6e 64 65 78 | 20 3d 20 30 3b 0d 09 0d |..vindex| = 0;...|
|00000ec0| 09 6d 65 6d 73 65 74 28 | 28 42 79 74 65 2a 29 26 |.memset(|(Byte*)&|
|00000ed0| 68 70 62 2c 20 30 78 30 | 30 2c 20 73 69 7a 65 6f |hpb, 0x0|0, sizeo|
|00000ee0| 66 28 48 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 |f(HParam|BlockRec|
|00000ef0| 29 29 3b 0d 09 64 6f 0d | 09 7b 0d 09 09 76 69 6e |));..do.|.{...vin|
|00000f00| 64 65 78 2b 2b 3b 0d 09 | 09 68 70 62 2e 76 6f 6c |dex++;..|.hpb.vol|
|00000f10| 75 6d 65 50 61 72 61 6d | 2e 69 6f 4e 61 6d 65 50 |umeParam|.ioNameP|
|00000f20| 74 72 20 3d 20 6e 69 6c | 3b 0d 09 09 68 70 62 2e |tr = nil|;...hpb.|
|00000f30| 76 6f 6c 75 6d 65 50 61 | 72 61 6d 2e 69 6f 56 6f |volumePa|ram.ioVo|
|00000f40| 6c 49 6e 64 65 78 20 3d | 20 76 69 6e 64 65 78 3b |lIndex =| vindex;|
|00000f50| 0d 09 09 61 6e 45 72 72 | 20 3d 20 50 42 48 47 65 |...anErr| = PBHGe|
|00000f60| 74 56 49 6e 66 6f 28 26 | 68 70 62 2c 20 66 61 6c |tVInfo(&|hpb, fal|
|00000f70| 73 65 29 3b 0d 09 09 69 | 66 20 28 61 6e 45 72 72 |se);...i|f (anErr|
|00000f80| 3d 3d 6e 6f 45 72 72 29 | 0d 09 09 7b 0d 09 09 09 |==noErr)|...{....|
|00000f90| 6d 65 6d 73 65 74 28 28 | 42 79 74 65 2a 29 26 73 |memset((|Byte*)&s|
|00000fa0| 64 50 42 2c 20 30 78 30 | 30 2c 20 73 69 7a 65 6f |dPB, 0x0|0, sizeo|
|00000fb0| 66 28 44 54 50 42 52 65 | 63 29 29 3b 0d 09 09 09 |f(DTPBRe|c));....|
|00000fc0| 0d 09 09 09 73 64 50 42 | 2e 69 6f 4e 61 6d 65 50 |....sdPB|.ioNameP|
|00000fd0| 74 72 20 3d 20 6e 69 6c | 3b 0d 09 09 09 73 64 50 |tr = nil|;....sdP|
|00000fe0| 42 2e 69 6f 56 52 65 66 | 4e 75 6d 20 3d 20 68 70 |B.ioVRef|Num = hp|
|00000ff0| 62 2e 76 6f 6c 75 6d 65 | 50 61 72 61 6d 2e 69 6f |b.volume|Param.io|
|00001000| 56 52 65 66 4e 75 6d 3b | 0d 09 09 09 0d 09 09 09 |VRefNum;|........|
|00001010| 69 66 20 28 20 50 42 44 | 54 47 65 74 50 61 74 68 |if ( PBD|TGetPath|
|00001020| 28 20 26 73 64 50 42 20 | 29 20 3d 3d 20 6e 6f 45 |( &sdPB |) == noE|
|00001030| 72 72 20 29 0d 09 09 09 | 7b 0d 09 09 09 09 72 65 |rr )....|{.....re|
|00001040| 66 6e 75 6d 20 3d 20 73 | 64 50 42 2e 69 6f 44 54 |fnum = s|dPB.ioDT|
|00001050| 52 65 66 4e 75 6d 3b 0d | 09 09 09 09 73 64 50 42 |RefNum;.|....sdPB|
|00001060| 2e 69 6f 4e 61 6d 65 50 | 74 72 20 3d 20 70 61 73 |.ioNameP|tr = pas|
|00001070| 46 69 6c 65 4e 61 6d 65 | 3b 0d 09 09 09 09 70 61 |FileName|;.....pa|
|00001080| 73 46 69 6c 65 4e 61 6d | 65 5b 30 5d 20 3d 20 30 |sFileNam|e[0] = 0|
|00001090| 3b 0d 09 09 09 09 73 64 | 50 42 2e 69 6f 49 6e 64 |;.....sd|PB.ioInd|
|000010a0| 65 78 20 3d 20 30 3b 0d | 09 09 09 09 73 64 50 42 |ex = 0;.|....sdPB|
|000010b0| 2e 69 6f 46 69 6c 65 43 | 72 65 61 74 6f 72 20 3d |.ioFileC|reator =|
|000010c0| 20 6f 73 74 43 72 65 61 | 74 6f 72 3b 0d 09 09 09 | ostCrea|tor;....|
|000010d0| 09 0d 09 09 09 09 69 66 | 20 28 50 42 44 54 47 65 |......if| (PBDTGe|
|000010e0| 74 41 50 50 4c 28 20 26 | 73 64 50 42 2c 20 66 61 |tAPPL( &|sdPB, fa|
|000010f0| 6c 73 65 29 20 3d 3d 20 | 6e 6f 45 72 72 29 0d 09 |lse) == |noErr)..|
|00001100| 09 09 09 7b 0d 09 09 09 | 09 09 66 73 53 70 65 63 |...{....|..fsSpec|
|00001110| 2e 76 52 65 66 4e 75 6d | 20 3d 20 68 70 62 2e 76 |.vRefNum| = hpb.v|
|00001120| 6f 6c 75 6d 65 50 61 72 | 61 6d 2e 69 6f 56 52 65 |olumePar|am.ioVRe|
|00001130| 66 4e 75 6d 3b 0d 09 09 | 09 09 09 66 73 53 70 65 |fNum;...|...fsSpe|
|00001140| 63 2e 70 61 72 49 44 20 | 3d 20 73 64 50 42 2e 69 |c.parID |= sdPB.i|
|00001150| 6f 41 50 50 4c 50 61 72 | 49 44 3b 0d 09 09 09 09 |oAPPLPar|ID;.....|
|00001160| 09 42 6c 6f 63 6b 4d 6f | 76 65 28 20 70 61 73 46 |.BlockMo|ve( pasF|
|00001170| 69 6c 65 4e 61 6d 65 2c | 20 66 73 53 70 65 63 2e |ileName,| fsSpec.|
|00001180| 6e 61 6d 65 2c 20 70 61 | 73 46 69 6c 65 4e 61 6d |name, pa|sFileNam|
|00001190| 65 5b 30 5d 20 2b 20 31 | 20 29 3b 0d 09 09 0d 09 |e[0] + 1| );.....|
|000011a0| 09 09 09 09 66 46 6f 75 | 6e 64 20 3d 20 4c 61 75 |....fFou|nd = Lau|
|000011b0| 6e 63 68 65 64 41 70 70 | 6c 69 63 61 74 69 6f 6e |nchedApp|lication|
|000011c0| 28 20 26 66 73 53 70 65 | 63 2c 20 70 72 6f 63 65 |( &fsSpe|c, proce|
|000011d0| 73 73 53 65 72 69 61 6c | 4e 75 6d 62 65 72 20 29 |ssSerial|Number )|
|000011e0| 3b 0d 09 09 09 09 7d 0d | 09 09 09 7d 0d 09 09 7d |;.....}.|...}...}|
|000011f0| 0d 09 7d 0d 09 77 68 69 | 6c 65 20 28 20 21 66 46 |..}..whi|le ( !fF|
|00001200| 6f 75 6e 64 20 26 26 20 | 28 20 61 6e 45 72 72 20 |ound && |( anErr |
|00001210| 3d 3d 20 6e 6f 45 72 72 | 20 29 20 29 3b 0d 0d 09 |== noErr| ) );...|
|00001220| 72 65 74 75 72 6e 20 66 | 52 65 73 75 6c 74 3b 0d |return f|Result;.|
|00001230| 7d 0d 0d 73 74 61 74 69 | 63 20 76 6f 69 64 20 43 |}..stati|c void C|
|00001240| 6c 69 70 4e 65 74 73 63 | 61 70 65 4e 61 6d 65 28 |lipNetsc|apeName(|
|00001250| 53 74 72 32 35 35 20 74 | 68 65 73 74 72 29 0d 7b |Str255 t|hestr).{|
|00001260| 0d 09 53 74 72 32 35 35 | 20 74 65 6d 70 73 74 72 |..Str255| tempstr|
|00001270| 3b 0d 09 53 74 72 33 31 | 20 20 4e 65 74 4e 61 6d |;..Str31|  NetNam|
|00001280| 65 20 3d 20 22 5c 70 4e | 65 74 73 63 61 70 65 3a |e = "\pN|etscape:|
|00001290| 20 22 3b 0d 09 73 68 6f | 72 74 09 6f 6c 64 6c 65 | ";..sho|rt.oldle|
|000012a0| 6e 67 74 68 20 3d 20 74 | 68 65 73 74 72 5b 30 5d |ngth = t|hestr[0]|
|000012b0| 3b 0d 09 42 6f 6f 6c 65 | 61 6e 09 67 6f 74 61 4d |;..Boole|an.gotaM|
|000012c0| 61 74 63 68 3b 0d 09 73 | 68 6f 72 74 09 69 3b 0d |atch;..s|hort.i;.|
|000012d0| 09 0d 09 69 66 20 28 6f | 6c 64 6c 65 6e 67 74 68 |...if (o|ldlength|
|000012e0| 3c 3d 4e 65 74 4e 61 6d | 65 5b 30 5d 29 20 20 2f |<=NetNam|e[0])  /|
|000012f0| 2f 20 69 66 20 74 6f 6f | 20 73 68 6f 72 74 2c 20 |/ if too| short, |
|00001300| 6e 6f 74 20 70 6f 73 73 | 69 62 6c 65 20 69 74 20 |not poss|ible it |
|00001310| 73 74 61 72 74 73 20 77 | 69 74 68 20 4e 65 74 73 |starts w|ith Nets|
|00001320| 63 61 70 65 0d 09 7b 0d | 09 09 72 65 74 75 72 6e |cape..{.|..return|
|00001330| 3b 0d 09 7d 0d 09 74 68 | 65 73 74 72 5b 30 5d 3d |;..}..th|estr[0]=|
|00001340| 4e 65 74 4e 61 6d 65 5b | 30 5d 3b 0d 09 67 6f 74 |NetName[|0];..got|
|00001350| 61 4d 61 74 63 68 20 3d | 20 45 71 75 61 6c 53 74 |aMatch =| EqualSt|
|00001360| 72 69 6e 67 28 74 68 65 | 73 74 72 2c 20 4e 65 74 |ring(the|str, Net|
|00001370| 4e 61 6d 65 2c 20 66 61 | 6c 73 65 2c 20 66 61 6c |Name, fa|lse, fal|
|00001380| 73 65 29 3b 0d 09 74 68 | 65 73 74 72 5b 30 5d 20 |se);..th|estr[0] |
|00001390| 3d 20 6f 6c 64 6c 65 6e | 67 74 68 3b 0d 09 69 66 |= oldlen|gth;..if|
|000013a0| 20 28 67 6f 74 61 4d 61 | 74 63 68 29 0d 09 7b 0d | (gotaMa|tch)..{.|
|000013b0| 09 09 6f 6c 64 6c 65 6e | 67 74 68 20 3d 20 6f 6c |..oldlen|gth = ol|
|000013c0| 64 6c 65 6e 67 74 68 20 | 2d 20 4e 65 74 4e 61 6d |dlength |- NetNam|
|000013d0| 65 5b 30 5d 3b 0d 09 09 | 74 68 65 73 74 72 5b 30 |e[0];...|thestr[0|
|000013e0| 5d 20 3d 20 6f 6c 64 6c | 65 6e 67 74 68 3b 0d 09 |] = oldl|ength;..|
|000013f0| 09 66 6f 72 20 28 69 20 | 3d 20 31 3b 20 69 20 3c |.for (i |= 1; i <|
|00001400| 3d 20 6f 6c 64 6c 65 6e | 67 74 68 3b 20 69 2b 2b |= oldlen|gth; i++|
|00001410| 29 0d 09 09 7b 0d 09 09 | 09 74 68 65 73 74 72 5b |)...{...|.thestr[|
|00001420| 69 5d 20 3d 20 74 68 65 | 73 74 72 5b 69 2b 4e 65 |i] = the|str[i+Ne|
|00001430| 74 4e 61 6d 65 5b 30 5d | 5d 3b 0d 09 09 7d 0d 09 |tName[0]|];...}..|
|00001440| 7d 0d 09 0d 7d 0d 09 0d | 0d 73 74 61 74 69 63 20 |}...}...|.static |
|00001450| 4f 53 54 79 70 65 20 47 | 65 74 46 72 6f 6e 74 53 |OSType G|etFrontS|
|00001460| 69 67 6e 61 74 75 72 65 | 28 20 76 6f 69 64 20 29 |ignature|( void )|
|00001470| 0d 7b 0d 09 50 72 6f 63 | 65 73 73 53 65 72 69 61 |.{..Proc|essSeria|
|00001480| 6c 4e 75 6d 62 65 72 20 | 74 68 65 70 73 6e 3b 0d |lNumber |thepsn;.|
|00001490| 09 50 72 6f 63 65 73 73 | 49 6e 66 6f 52 65 63 09 |.Process|InfoRec.|
|000014a0| 69 6e 66 6f 3b 0d 09 4f | 53 45 72 72 09 61 6e 45 |info;..O|SErr.anE|
|000014b0| 72 72 3b 0d 09 0d 09 61 | 6e 45 72 72 20 3d 20 47 |rr;....a|nErr = G|
|000014c0| 65 74 46 72 6f 6e 74 50 | 72 6f 63 65 73 73 28 26 |etFrontP|rocess(&|
|000014d0| 74 68 65 70 73 6e 29 3b | 0d 09 69 6e 66 6f 2e 70 |thepsn);|..info.p|
|000014e0| 72 6f 63 65 73 73 49 6e | 66 6f 4c 65 6e 67 74 68 |rocessIn|foLength|
|000014f0| 20 3d 20 73 69 7a 65 6f | 66 28 69 6e 66 6f 29 3b | = sizeo|f(info);|
|00001500| 0d 09 69 6e 66 6f 2e 70 | 72 6f 63 65 73 73 4e 61 |..info.p|rocessNa|
|00001510| 6d 65 20 3d 20 6e 69 6c | 3b 0d 09 69 6e 66 6f 2e |me = nil|;..info.|
|00001520| 70 72 6f 63 65 73 73 41 | 70 70 53 70 65 63 20 3d |processA|ppSpec =|
|00001530| 20 6e 69 6c 3b 0d 09 61 | 6e 45 72 72 20 3d 20 47 | nil;..a|nErr = G|
|00001540| 65 74 50 72 6f 63 65 73 | 73 49 6e 66 6f 72 6d 61 |etProces|sInforma|
|00001550| 74 69 6f 6e 28 26 74 68 | 65 70 73 6e 2c 20 26 69 |tion(&th|epsn, &i|
|00001560| 6e 66 6f 29 3b 0d 09 72 | 65 74 75 72 6e 20 69 6e |nfo);..r|eturn in|
|00001570| 66 6f 2e 70 72 6f 63 65 | 73 73 53 69 67 6e 61 74 |fo.proce|ssSignat|
|00001580| 75 72 65 3b 0d 7d 0d 0d | 73 74 61 74 69 63 20 4f |ure;.}..|static O|
|00001590| 53 54 79 70 65 20 47 65 | 74 43 75 72 72 65 6e 74 |SType Ge|tCurrent|
|000015a0| 53 69 67 6e 61 74 75 72 | 65 28 20 76 6f 69 64 20 |Signatur|e( void |
|000015b0| 29 0d 7b 0d 09 50 72 6f | 63 65 73 73 53 65 72 69 |).{..Pro|cessSeri|
|000015c0| 61 6c 4e 75 6d 62 65 72 | 20 74 68 65 70 73 6e 3b |alNumber| thepsn;|
|000015d0| 0d 09 50 72 6f 63 65 73 | 73 49 6e 66 6f 52 65 63 |..Proces|sInfoRec|
|000015e0| 09 69 6e 66 6f 3b 0d 09 | 4f 53 45 72 72 09 61 6e |.info;..|OSErr.an|
|000015f0| 45 72 72 3b 0d 09 0d 09 | 61 6e 45 72 72 20 3d 20 |Err;....|anErr = |
|00001600| 47 65 74 43 75 72 72 65 | 6e 74 50 72 6f 63 65 73 |GetCurre|ntProces|
|00001610| 73 28 26 74 68 65 70 73 | 6e 29 3b 0d 09 69 6e 66 |s(&theps|n);..inf|
|00001620| 6f 2e 70 72 6f 63 65 73 | 73 49 6e 66 6f 4c 65 6e |o.proces|sInfoLen|
|00001630| 67 74 68 20 3d 20 73 69 | 7a 65 6f 66 28 69 6e 66 |gth = si|zeof(inf|
|00001640| 6f 29 3b 0d 09 69 6e 66 | 6f 2e 70 72 6f 63 65 73 |o);..inf|o.proces|
|00001650| 73 4e 61 6d 65 20 3d 20 | 6e 69 6c 3b 0d 09 69 6e |sName = |nil;..in|
|00001660| 66 6f 2e 70 72 6f 63 65 | 73 73 41 70 70 53 70 65 |fo.proce|ssAppSpe|
|00001670| 63 20 3d 20 6e 69 6c 3b | 0d 09 61 6e 45 72 72 20 |c = nil;|..anErr |
|00001680| 3d 20 47 65 74 50 72 6f | 63 65 73 73 49 6e 66 6f |= GetPro|cessInfo|
|00001690| 72 6d 61 74 69 6f 6e 28 | 26 74 68 65 70 73 6e 2c |rmation(|&thepsn,|
|000016a0| 20 26 69 6e 66 6f 29 3b | 0d 09 72 65 74 75 72 6e | &info);|..return|
|000016b0| 20 69 6e 66 6f 2e 70 72 | 6f 63 65 73 73 53 69 67 | info.pr|ocessSig|
|000016c0| 6e 61 74 75 72 65 3b 0d | 7d 0d 0d 73 74 61 74 69 |nature;.|}..stati|
|000016d0| 63 20 4f 53 45 72 72 20 | 47 65 74 50 72 6f 63 65 |c OSErr |GetProce|
|000016e0| 73 73 42 79 54 79 70 65 | 20 28 4f 53 54 79 70 65 |ssByType| (OSType|
|000016f0| 20 74 68 65 49 44 2c 20 | 50 72 6f 63 65 73 73 53 | theID, |ProcessS|
|00001700| 65 72 69 61 6c 4e 75 6d | 62 65 72 2a 20 74 68 65 |erialNum|ber* the|
|00001710| 70 73 6e 29 0d 7b 09 0d | 09 50 72 6f 63 65 73 73 |psn).{..|.Process|
|00001720| 49 6e 66 6f 52 65 63 09 | 69 6e 66 6f 3b 0d 09 4f |InfoRec.|info;..O|
|00001730| 53 45 72 72 09 61 6e 45 | 72 72 3b 0d 09 0d 09 74 |SErr.anE|rr;....t|
|00001740| 68 65 70 73 6e 2d 3e 68 | 69 67 68 4c 6f 6e 67 4f |hepsn->h|ighLongO|
|00001750| 66 50 53 4e 20 3d 20 30 | 3b 0d 09 74 68 65 70 73 |fPSN = 0|;..theps|
|00001760| 6e 2d 3e 6c 6f 77 4c 6f | 6e 67 4f 66 50 53 4e 20 |n->lowLo|ngOfPSN |
|00001770| 3d 20 6b 4e 6f 50 72 6f | 63 65 73 73 3b 0d 09 61 |= kNoPro|cess;..a|
|00001780| 6e 45 72 72 20 3d 20 47 | 65 74 4e 65 78 74 50 72 |nErr = G|etNextPr|
|00001790| 6f 63 65 73 73 28 74 68 | 65 70 73 6e 29 3b 0d 09 |ocess(th|epsn);..|
|000017a0| 64 6f 0d 09 7b 0d 09 09 | 69 6e 66 6f 2e 70 72 6f |do..{...|info.pro|
|000017b0| 63 65 73 73 49 6e 66 6f | 4c 65 6e 67 74 68 20 3d |cessInfo|Length =|
|000017c0| 20 73 69 7a 65 6f 66 28 | 69 6e 66 6f 29 3b 0d 09 | sizeof(|info);..|
|000017d0| 09 69 6e 66 6f 2e 70 72 | 6f 63 65 73 73 4e 61 6d |.info.pr|ocessNam|
|000017e0| 65 20 3d 20 6e 69 6c 3b | 0d 09 09 69 6e 66 6f 2e |e = nil;|...info.|
|000017f0| 70 72 6f 63 65 73 73 41 | 70 70 53 70 65 63 20 3d |processA|ppSpec =|
|00001800| 20 6e 69 6c 3b 0d 09 09 | 61 6e 45 72 72 20 3d 20 | nil;...|anErr = |
|00001810| 47 65 74 50 72 6f 63 65 | 73 73 49 6e 66 6f 72 6d |GetProce|ssInform|
|00001820| 61 74 69 6f 6e 28 74 68 | 65 70 73 6e 2c 20 26 69 |ation(th|epsn, &i|
|00001830| 6e 66 6f 29 3b 0d 09 09 | 69 66 20 28 28 61 6e 45 |nfo);...|if ((anE|
|00001840| 72 72 20 3d 3d 20 6e 6f | 45 72 72 29 20 26 26 20 |rr == no|Err) && |
|00001850| 28 74 68 65 49 44 20 3d | 3d 20 69 6e 66 6f 2e 70 |(theID =|= info.p|
|00001860| 72 6f 63 65 73 73 53 69 | 67 6e 61 74 75 72 65 29 |rocessSi|gnature)|
|00001870| 29 0d 09 09 7b 0d 09 09 | 09 72 65 74 75 72 6e 20 |)...{...|.return |
|00001880| 6e 6f 45 72 72 3b 0d 09 | 09 7d 0d 09 09 0d 09 7d |noErr;..|.}.....}|
|00001890| 0d 09 77 68 69 6c 65 20 | 28 47 65 74 4e 65 78 74 |..while |(GetNext|
|000018a0| 50 72 6f 63 65 73 73 28 | 74 68 65 70 73 6e 29 3d |Process(|thepsn)=|
|000018b0| 3d 6e 6f 45 72 72 29 3b | 0d 09 72 65 74 75 72 6e |=noErr);|..return|
|000018c0| 20 2d 31 3b 0d 7d 0d 0d | 73 74 61 74 69 63 20 4f | -1;.}..|static O|
|000018d0| 53 54 79 70 65 20 47 65 | 74 42 72 6f 77 73 65 72 |SType Ge|tBrowser|
|000018e0| 43 72 65 61 74 6f 72 28 | 20 76 6f 69 64 20 29 0d |Creator(| void ).|
|000018f0| 7b 0d 09 6c 6f 6e 67 09 | 74 65 6d 70 73 69 7a 65 |{..long.|tempsize|
|00001900| 3b 0d 09 49 43 41 74 74 | 72 09 74 65 6d 70 61 74 |;..ICAtt|r.tempat|
|00001910| 74 72 3d 30 3b 0d 09 49 | 43 41 70 70 53 70 65 63 |tr=0;..I|CAppSpec|
|00001920| 09 73 49 43 41 70 70 53 | 70 65 63 3b 0d 09 49 43 |.sICAppS|pec;..IC|
|00001930| 45 72 72 6f 72 09 09 74 | 68 65 65 72 72 3b 0d 09 |Error..t|heerr;..|
|00001940| 53 74 72 32 35 35 09 09 | 70 61 73 4b 65 79 20 3d |Str255..|pasKey =|
|00001950| 20 22 5c 70 48 65 6c 70 | 65 72 a5 68 74 74 70 22 | "\pHelp|er.http"|
|00001960| 3b 0d 09 0d 09 74 65 6d | 70 73 69 7a 65 20 3d 20 |;....tem|psize = |
|00001970| 73 69 7a 65 6f 66 28 73 | 49 43 41 70 70 53 70 65 |sizeof(s|ICAppSpe|
|00001980| 63 29 3b 0d 09 74 68 65 | 65 72 72 20 3d 20 49 43 |c);..the|err = IC|
|00001990| 47 65 74 50 72 65 66 20 | 28 67 69 6e 73 74 2c 20 |GetPref |(ginst, |
|000019a0| 70 61 73 4b 65 79 2c 26 | 74 65 6d 70 61 74 74 72 |pasKey,&|tempattr|
|000019b0| 2c 28 50 74 72 29 28 26 | 73 49 43 41 70 70 53 70 |,(Ptr)(&|sICAppSp|
|000019c0| 65 63 29 2c 26 74 65 6d | 70 73 69 7a 65 29 3b 0d |ec),&tem|psize);.|
|000019d0| 09 2f 2f 20 74 68 65 20 | 63 72 65 61 74 6f 72 20 |.// the |creator |
|000019e0| 69 73 20 69 6e 20 73 49 | 43 41 70 70 53 70 65 63 |is in sI|CAppSpec|
|000019f0| 2e 66 43 72 65 61 74 6f | 72 0d 09 0d 09 69 66 20 |.fCreato|r....if |
|00001a00| 28 74 68 65 65 72 72 20 | 21 3d 20 6e 6f 45 72 72 |(theerr |!= noErr|
|00001a10| 29 0d 09 7b 0d 09 09 72 | 65 74 75 72 6e 20 30 3b |)..{...r|eturn 0;|
|00001a20| 0d 09 7d 0d 09 72 65 74 | 75 72 6e 20 73 49 43 41 |..}..ret|urn sICA|
|00001a30| 70 70 53 70 65 63 2e 66 | 43 72 65 61 74 6f 72 3b |ppSpec.f|Creator;|
|00001a40| 0d 0d 7d 0d 0d 76 6f 69 | 64 09 49 6e 69 74 57 48 |..}..voi|d.InitWH|
|00001a50| 61 6e 64 6c 65 72 28 20 | 76 6f 69 64 20 29 0d 7b |andler( |void ).{|
|00001a60| 0d 09 49 43 45 72 72 6f | 72 09 74 68 65 65 72 72 |..ICErro|r.theerr|
|00001a70| 3b 0d 09 48 61 6e 64 6c | 65 09 68 3b 0d 09 50 72 |;..Handl|e.h;..Pr|
|00001a80| 6f 63 65 73 73 53 65 72 | 69 61 6c 4e 75 6d 62 65 |ocessSer|ialNumbe|
|00001a90| 72 20 74 68 65 70 73 6e | 3b 0d 09 0d 09 49 6e 69 |r thepsn|;....Ini|
|00001aa0| 74 6a 47 4e 45 50 72 6f | 63 4c 69 62 28 29 3b 0d |tjGNEPro|cLib();.|
|00001ab0| 09 0d 09 67 4f 75 72 47 | 6c 6f 62 61 6c 73 20 3d |...gOurG|lobals =|
|00001ac0| 20 28 73 47 75 6c 6c 44 | 61 74 61 50 74 72 29 20 | (sGullD|ataPtr) |
|00001ad0| 4e 65 77 50 74 72 53 79 | 73 43 6c 65 61 72 28 73 |NewPtrSy|sClear(s|
|00001ae0| 69 7a 65 6f 66 28 73 47 | 75 6c 6c 44 61 74 61 29 |izeof(sG|ullData)|
|00001af0| 29 3b 0d 09 69 66 20 28 | 21 67 4f 75 72 47 6c 6f |);..if (|!gOurGlo|
|00001b00| 62 61 6c 73 29 0d 09 7b | 0d 09 09 44 65 62 75 67 |bals)..{|...Debug|
|00001b10| 53 74 72 28 22 5c 70 43 | 6f 75 6c 64 20 6e 6f 74 |Str("\pC|ould not|
|00001b20| 20 61 6c 6c 6f 63 61 74 | 65 20 67 6c 6f 62 61 6c | allocat|e global|
|00001b30| 73 21 21 21 22 29 3b 0d | 09 09 45 78 69 74 54 6f |s!!!");.|..ExitTo|
|00001b40| 53 68 65 6c 6c 28 29 3b | 0d 09 7d 0d 09 0d 09 74 |Shell();|..}....t|
|00001b50| 68 65 65 72 72 20 3d 20 | 49 43 53 74 61 72 74 28 |heerr = |ICStart(|
|00001b60| 26 67 69 6e 73 74 2c 20 | 27 4d 48 63 6b 27 29 3b |&ginst, |'MHck');|
|00001b70| 0d 09 74 68 65 65 72 72 | 20 3d 20 49 43 46 69 6e |..theerr| = ICFin|
|00001b80| 64 43 6f 6e 66 69 67 46 | 69 6c 65 20 28 67 69 6e |dConfigF|ile (gin|
|00001b90| 73 74 2c 20 30 20 2c 6e | 69 6c 29 3b 0d 09 67 4f |st, 0 ,n|il);..gO|
|00001ba0| 75 72 47 6c 6f 62 61 6c | 73 2d 3e 67 49 48 61 76 |urGlobal|s->gIHav|
|00001bb0| 65 50 61 74 63 68 65 64 | 20 3d 20 66 61 6c 73 65 |ePatched| = false|
|00001bc0| 3b 0d 09 48 6f 6f 6b 6a | 47 4e 45 28 28 6c 6f 6e |;..Hookj|GNE((lon|
|00001bd0| 67 29 26 43 61 6c 6c 65 | 64 48 61 6e 64 6c 65 41 |g)&Calle|dHandleA|
|00001be0| 6e 45 76 65 6e 74 2c 20 | 28 6c 6f 6e 67 29 67 4f |nEvent, |(long)gO|
|00001bf0| 75 72 47 6c 6f 62 61 6c | 73 29 3b 0d 09 0d 09 67 |urGlobal|s);....g|
|00001c00| 4f 75 72 47 6c 6f 62 61 | 6c 73 2d 3e 67 42 72 6f |OurGloba|ls->gBro|
|00001c10| 77 73 65 72 43 72 65 61 | 74 6f 72 20 3d 20 47 65 |wserCrea|tor = Ge|
|00001c20| 74 42 72 6f 77 73 65 72 | 43 72 65 61 74 6f 72 28 |tBrowser|Creator(|
|00001c30| 29 3b 0d 09 69 66 20 28 | 67 4f 75 72 47 6c 6f 62 |);..if (|gOurGlob|
|00001c40| 61 6c 73 2d 3e 67 42 72 | 6f 77 73 65 72 43 72 65 |als->gBr|owserCre|
|00001c50| 61 74 6f 72 29 0d 09 7b | 0d 09 09 74 68 65 65 72 |ator)..{|...theer|
|00001c60| 72 20 3d 20 4c 61 75 6e | 63 68 41 70 70 42 79 53 |r = Laun|chAppByS|
|00001c70| 69 67 28 67 4f 75 72 47 | 6c 6f 62 61 6c 73 2d 3e |ig(gOurG|lobals->|
|00001c80| 67 42 72 6f 77 73 65 72 | 43 72 65 61 74 6f 72 2c |gBrowser|Creator,|
|00001c90| 20 26 74 68 65 70 73 6e | 29 3b 0d 09 7d 0d 09 0d | &thepsn|);..}...|
|00001ca0| 7d 0d 0d 76 6f 69 64 09 | 43 6c 6f 73 65 57 48 61 |}..void.|CloseWHa|
|00001cb0| 6e 64 6c 65 72 20 28 20 | 76 6f 69 64 20 29 0d 7b |ndler ( |void ).{|
|00001cc0| 0d 09 4f 53 45 72 72 09 | 61 6e 45 72 72 3b 0d 09 |..OSErr.|anErr;..|
|00001cd0| 0d 09 55 6e 48 6f 6f 6b | 6a 47 4e 45 28 29 3b 0d |..UnHook|jGNE();.|
|00001ce0| 09 44 69 73 70 6f 73 65 | 50 74 72 28 28 50 74 72 |.Dispose|Ptr((Ptr|
|00001cf0| 29 67 4f 75 72 47 6c 6f | 62 61 6c 73 29 3b 0d 09 |)gOurGlo|bals);..|
|00001d00| 0d 09 49 43 53 74 6f 70 | 28 67 69 6e 73 74 29 3b |..ICStop|(ginst);|
|00001d10| 0d 7d 0d 0d 73 74 61 74 | 69 63 20 76 6f 69 64 20 |.}..stat|ic void |
|00001d20| 48 61 6e 64 6c 65 4d 65 | 6e 75 28 73 68 6f 72 74 |HandleMe|nu(short|
|00001d30| 20 74 65 6d 70 76 61 6c | 2c 20 73 47 75 6c 6c 44 | tempval|, sGullD|
|00001d40| 61 74 61 50 74 72 09 67 | 47 6c 6f 62 61 6c 73 50 |ataPtr.g|GlobalsP|
|00001d50| 74 72 29 0d 7b 0d 09 69 | 66 20 28 74 65 6d 70 76 |tr).{..i|f (tempv|
|00001d60| 61 6c 3d 3d 31 29 0d 09 | 7b 0d 09 09 44 65 62 75 |al==1)..|{...Debu|
|00001d70| 67 53 74 72 28 22 5c 70 | 43 61 6e 6e 6f 74 20 61 |gStr("\p|Cannot a|
|00001d80| 64 64 20 62 6f 6f 6b 6d | 61 72 6b 73 20 79 65 74 |dd bookm|arks yet|
|00001d90| 22 29 3b 0d 09 7d 0d 09 | 65 6c 73 65 20 69 66 20 |");..}..|else if |
|00001da0| 28 74 65 6d 70 76 61 6c | 3d 3d 32 29 0d 09 7b 0d |(tempval|==2)..{.|
|00001db0| 09 09 44 65 62 75 67 53 | 74 72 28 22 5c 70 43 61 |..DebugS|tr("\pCa|
|00001dc0| 6e 6e 6f 74 20 61 64 64 | 20 63 6f 6d 6d 65 6e 74 |nnot add| comment|
|00001dd0| 73 20 79 65 74 22 29 3b | 0d 09 7d 0d 09 65 6c 73 |s yet");|..}..els|
|00001de0| 65 20 69 66 20 28 74 65 | 6d 70 76 61 6c 3e 33 29 |e if (te|mpval>3)|
|00001df0| 0d 09 7b 0d 09 09 67 47 | 6c 6f 62 61 6c 73 50 74 |..{...gG|lobalsPt|
|00001e00| 72 2d 3e 77 68 69 63 68 | 69 74 65 6d 3d 74 65 6d |r->which|item=tem|
|00001e10| 70 76 61 6c 2d 33 3b 0d | 09 09 47 65 74 55 52 4c |pval-3;.|..GetURL|
|00001e20| 49 6e 66 6f 28 67 47 6c | 6f 62 61 6c 73 50 74 72 |Info(gGl|obalsPtr|
|00001e30| 29 3b 0d 09 09 67 47 6c | 6f 62 61 6c 73 50 74 72 |);...gGl|obalsPtr|
|00001e40| 2d 3e 54 69 6d 65 54 6f | 52 75 6e 20 3d 20 74 72 |->TimeTo|Run = tr|
|00001e50| 75 65 3b 0d 09 7d 0d 09 | 0d 7d 0d 0d 73 74 61 74 |ue;..}..|.}..stat|
|00001e60| 69 63 20 76 6f 69 64 20 | 4b 69 6c 6c 54 68 69 73 |ic void |KillThis|
|00001e70| 52 6f 75 74 69 6e 65 28 | 76 6f 69 64 29 20 2f 2f |Routine(|void) //|
|00001e80| 20 54 68 69 73 20 69 73 | 6e 27 74 20 72 65 61 6c | This is|n't real|
|00001e90| 6c 79 20 75 73 65 64 20 | 61 73 20 61 20 72 6f 75 |ly used |as a rou|
|00001ea0| 74 69 6e 65 2c 20 6a 75 | 73 74 0d 7b 0d 09 6c 6f |tine, ju|st.{..lo|
|00001eb0| 6e 67 09 78 20 3d 20 30 | 3b 09 2f 2f 61 73 20 73 |ng.x = 0|;.//as s|
|00001ec0| 6f 6d 65 20 6d 65 6d 6f | 72 79 20 49 20 63 61 6e |ome memo|ry I can|
|00001ed0| 20 6f 76 65 72 77 72 69 | 74 65 0d 7d 0d 0d 73 74 | overwri|te.}..st|
|00001ee0| 61 74 69 63 20 73 47 75 | 6c 6c 44 61 74 61 50 74 |atic sGu|llDataPt|
|00001ef0| 72 2a 20 57 68 65 72 65 | 54 6f 47 6f 28 20 76 6f |r* Where|ToGo( vo|
|00001f00| 69 64 20 29 0d 7b 0d 09 | 72 65 74 75 72 6e 20 28 |id ).{..|return (|
|00001f10| 73 47 75 6c 6c 44 61 74 | 61 50 74 72 2a 29 28 26 |sGullDat|aPtr*)(&|
|00001f20| 4b 69 6c 6c 54 68 69 73 | 52 6f 75 74 69 6e 65 29 |KillThis|Routine)|
|00001f30| 3b 0d 7d 0d 0d 73 74 61 | 74 69 63 20 73 47 75 6c |;.}..sta|tic sGul|
|00001f40| 6c 44 61 74 61 50 74 72 | 09 47 65 74 4d 79 53 74 |lDataPtr|.GetMySt|
|00001f50| 6f 72 61 67 65 28 76 6f | 69 64 29 0d 7b 0d 09 73 |orage(vo|id).{..s|
|00001f60| 47 75 6c 6c 44 61 74 61 | 50 74 72 2a 20 6d 79 70 |GullData|Ptr* myp|
|00001f70| 74 72 20 3d 20 57 68 65 | 72 65 54 6f 47 6f 28 29 |tr = Whe|reToGo()|
|00001f80| 3b 0d 09 72 65 74 75 72 | 6e 20 2a 6d 79 70 74 72 |;..retur|n *myptr|
|00001f90| 3b 0d 7d 0d 0d 73 74 61 | 74 69 63 20 76 6f 69 64 |;.}..sta|tic void|
|00001fa0| 20 53 61 76 65 4d 79 53 | 74 6f 72 61 67 65 28 73 | SaveMyS|torage(s|
|00001fb0| 47 75 6c 6c 44 61 74 61 | 50 74 72 09 67 47 6c 6f |GullData|Ptr.gGlo|
|00001fc0| 62 61 6c 73 50 74 72 29 | 0d 7b 0d 09 73 47 75 6c |balsPtr)|.{..sGul|
|00001fd0| 6c 44 61 74 61 50 74 72 | 2a 20 6d 79 70 74 72 20 |lDataPtr|* myptr |
|00001fe0| 3d 20 57 68 65 72 65 54 | 6f 47 6f 28 29 3b 0d 09 |= WhereT|oGo();..|
|00001ff0| 2a 6d 79 70 74 72 20 3d | 20 67 47 6c 6f 62 61 6c |*myptr =| gGlobal|
|00002000| 73 50 74 72 3b 0d 7d 0d | 0d 73 74 61 74 69 63 09 |sPtr;.}.|.static.|
|00002010| 70 61 73 63 61 6c 20 6c | 6f 6e 67 20 4d 79 4d 65 |pascal l|ong MyMe|
|00002020| 6e 75 4b 65 79 28 20 73 | 68 6f 72 74 20 63 68 29 |nuKey( s|hort ch)|
|00002030| 0d 7b 0d 09 6c 6f 6e 67 | 09 74 65 6d 70 76 61 6c |.{..long|.tempval|
|00002040| 3b 0d 09 73 47 75 6c 6c | 44 61 74 61 50 74 72 09 |;..sGull|DataPtr.|
|00002050| 67 47 6c 6f 62 61 6c 73 | 50 74 72 3d 47 65 74 4d |gGlobals|Ptr=GetM|
|00002060| 79 53 74 6f 72 61 67 65 | 28 29 3b 0d 09 0d 09 74 |yStorage|();....t|
|00002070| 65 6d 70 76 61 6c 20 3d | 20 28 67 47 6c 6f 62 61 |empval =| (gGloba|
|00002080| 6c 73 50 74 72 2d 3e 53 | 61 76 65 64 4d 65 6e 75 |lsPtr->S|avedMenu|
|00002090| 4b 65 79 29 28 63 68 29 | 3b 0d 09 69 66 20 28 48 |Key)(ch)|;..if (H|
|000020a0| 69 57 6f 72 64 28 74 65 | 6d 70 76 61 6c 29 3d 3d |iWord(te|mpval)==|
|000020b0| 67 47 6c 6f 62 61 6c 73 | 50 74 72 2d 3e 6d 79 6d |gGlobals|Ptr->mym|
|000020c0| 65 6e 75 49 44 29 0d 09 | 7b 0d 09 09 48 61 6e 64 |enuID)..|{...Hand|
|000020d0| 6c 65 4d 65 6e 75 28 4c | 6f 57 6f 72 64 28 74 65 |leMenu(L|oWord(te|
|000020e0| 6d 70 76 61 6c 29 2c 20 | 67 47 6c 6f 62 61 6c 73 |mpval), |gGlobals|
|000020f0| 50 74 72 29 3b 0d 09 09 | 74 65 6d 70 76 61 6c 20 |Ptr);...|tempval |
|00002100| 3d 20 30 3b 0d 09 7d 0d | 09 72 65 74 75 72 6e 20 |= 0;..}.|.return |
|00002110| 74 65 6d 70 76 61 6c 3b | 0d 7d 0d 0d 0d 73 74 61 |tempval;|.}...sta|
|00002120| 74 69 63 09 70 61 73 63 | 61 6c 20 6c 6f 6e 67 20 |tic.pasc|al long |
|00002130| 4d 79 4d 65 6e 75 53 65 | 6c 65 63 74 28 20 50 6f |MyMenuSe|lect( Po|
|00002140| 69 6e 74 20 73 74 61 72 | 74 70 6f 69 6e 74 29 0d |int star|tpoint).|
|00002150| 7b 0d 09 6c 6f 6e 67 09 | 74 65 6d 70 76 61 6c 3b |{..long.|tempval;|
|00002160| 0d 09 73 47 75 6c 6c 44 | 61 74 61 50 74 72 09 67 |..sGullD|ataPtr.g|
|00002170| 47 6c 6f 62 61 6c 73 50 | 74 72 3d 47 65 74 4d 79 |GlobalsP|tr=GetMy|
|00002180| 53 74 6f 72 61 67 65 28 | 29 3b 0d 09 0d 09 74 65 |Storage(|);....te|
|00002190| 6d 70 76 61 6c 20 3d 20 | 28 67 47 6c 6f 62 61 6c |mpval = |(gGlobal|
|000021a0| 73 50 74 72 2d 3e 53 61 | 76 65 64 4d 65 6e 75 53 |sPtr->Sa|vedMenuS|
|000021b0| 65 6c 65 63 74 29 28 73 | 74 61 72 74 70 6f 69 6e |elect)(s|tartpoin|
|000021c0| 74 29 3b 0d 09 69 66 20 | 28 48 69 57 6f 72 64 28 |t);..if |(HiWord(|
|000021d0| 74 65 6d 70 76 61 6c 29 | 3d 3d 67 47 6c 6f 62 61 |tempval)|==gGloba|
|000021e0| 6c 73 50 74 72 2d 3e 6d | 79 6d 65 6e 75 49 44 29 |lsPtr->m|ymenuID)|
|000021f0| 0d 09 7b 0d 09 09 48 61 | 6e 64 6c 65 4d 65 6e 75 |..{...Ha|ndleMenu|
|00002200| 28 4c 6f 57 6f 72 64 28 | 74 65 6d 70 76 61 6c 29 |(LoWord(|tempval)|
|00002210| 2c 20 67 47 6c 6f 62 61 | 6c 73 50 74 72 29 3b 0d |, gGloba|lsPtr);.|
|00002220| 09 09 74 65 6d 70 76 61 | 6c 20 3d 20 30 3b 0d 09 |..tempva|l = 0;..|
|00002230| 7d 0d 09 72 65 74 75 72 | 6e 20 74 65 6d 70 76 61 |}..retur|n tempva|
|00002240| 6c 3b 0d 7d 0d 0d 76 6f | 69 64 20 47 65 74 55 52 |l;.}..vo|id GetUR|
|00002250| 4c 49 6e 66 6f 28 73 47 | 75 6c 6c 44 61 74 61 50 |LInfo(sG|ullDataP|
|00002260| 74 72 09 67 47 6c 6f 62 | 61 6c 73 50 74 72 29 0d |tr.gGlob|alsPtr).|
|00002270| 7b 0d 09 4f 53 45 72 72 | 09 09 09 65 72 72 3b 0d |{..OSErr|...err;.|
|00002280| 09 41 45 41 64 64 72 65 | 73 73 44 65 73 63 09 61 |.AEAddre|ssDesc.a|
|00002290| 65 61 64 3b 0d 09 41 70 | 70 6c 65 45 76 65 6e 74 |ead;..Ap|pleEvent|
|000022a0| 09 09 61 65 3b 0d 09 41 | 70 70 6c 65 45 76 65 6e |..ae;..A|ppleEven|
|000022b0| 74 09 09 70 41 65 52 65 | 70 6c 79 3b 0d 09 75 6e |t..pAeRe|ply;..un|
|000022c0| 73 69 67 6e 65 64 20 6c | 6f 6e 67 09 74 65 6d 70 |signed l|ong.temp|
|000022d0| 6c 6f 6e 67 3b 0d 09 4f | 53 54 79 70 65 09 09 09 |long;..O|SType...|
|000022e0| 74 65 6d 70 49 44 3b 0d | 09 6c 6f 6e 67 09 09 09 |tempID;.|.long...|
|000022f0| 74 68 65 73 69 7a 65 3b | 0d 09 4f 53 54 79 70 65 |thesize;|..OSType|
|00002300| 09 09 09 74 79 70 65 43 | 6f 64 65 3b 0d 09 53 74 |...typeC|ode;..St|
|00002310| 72 32 35 35 09 09 09 74 | 65 6d 70 73 74 72 3b 0d |r255...t|empstr;.|
|00002320| 09 4f 53 45 72 72 09 09 | 09 61 6e 45 72 72 3b 0d |.OSErr..|.anErr;.|
|00002330| 09 6c 6f 6e 67 09 09 09 | 77 68 69 63 68 55 52 4c |.long...|whichURL|
|00002340| 3b 0d 09 47 72 61 66 50 | 74 72 09 09 09 74 65 6d |;..GrafP|tr...tem|
|00002350| 70 70 6f 72 74 3b 0d 09 | 0d 09 2f 2f 09 43 72 65 |pport;..|..//.Cre|
|00002360| 61 74 65 20 74 68 65 20 | 61 64 64 72 65 73 73 20 |ate the |address |
|00002370| 64 69 73 63 72 69 70 74 | 6f 72 20 66 72 6f 6d 20 |discript|or from |
|00002380| 74 68 65 20 69 64 65 6e | 74 69 66 69 65 72 0d 09 |the iden|tifier..|
|00002390| 74 65 6d 70 49 44 20 3d | 20 27 54 53 4c 41 27 3b |tempID =| 'TSLA';|
|000023a0| 0d 09 0d 09 65 72 72 20 | 3d 20 41 45 43 72 65 61 |....err |= AECrea|
|000023b0| 74 65 44 65 73 63 20 28 | 20 74 79 70 65 41 70 70 |teDesc (| typeApp|
|000023c0| 6c 53 69 67 6e 61 74 75 | 72 65 2c 20 26 74 65 6d |lSignatu|re, &tem|
|000023d0| 70 49 44 2c 0d 09 09 73 | 69 7a 65 6f 66 28 20 74 |pID,...s|izeof( t|
|000023e0| 65 6d 70 49 44 20 29 2c | 20 26 61 65 61 64 20 29 |empID ),| &aead )|
|000023f0| 3b 0d 09 69 66 20 28 20 | 6e 6f 45 72 72 20 21 3d |;..if ( |noErr !=|
|00002400| 20 65 72 72 20 29 20 72 | 65 74 75 72 6e 3b 09 0d | err ) r|eturn;..|
|00002410| 09 0d 09 2f 2f 09 43 72 | 65 61 74 65 20 74 68 65 |...//.Cr|eate the|
|00002420| 20 4e 65 77 55 73 65 72 | 41 63 63 6f 75 6e 74 20 | NewUser|Account |
|00002430| 41 70 70 6c 65 45 76 65 | 6e 74 0d 09 65 72 72 20 |AppleEve|nt..err |
|00002440| 3d 20 41 45 43 72 65 61 | 74 65 41 70 70 6c 65 45 |= AECrea|teAppleE|
|00002450| 76 65 6e 74 20 28 20 27 | 4d 48 63 6b 27 2c 20 27 |vent ( '|MHck', '|
|00002460| 47 74 55 72 27 2c 20 26 | 61 65 61 64 2c 0d 09 09 |GtUr', &|aead,...|
|00002470| 6b 41 75 74 6f 47 65 6e | 65 72 61 74 65 52 65 74 |kAutoGen|erateRet|
|00002480| 75 72 6e 49 44 2c 20 6b | 41 6e 79 54 72 61 6e 73 |urnID, k|AnyTrans|
|00002490| 61 63 74 69 6f 6e 49 44 | 2c 20 26 61 65 20 29 3b |actionID|, &ae );|
|000024a0| 0d 09 41 45 44 69 73 70 | 6f 73 65 44 65 73 63 20 |..AEDisp|oseDesc |
|000024b0| 28 20 26 61 65 61 64 20 | 29 3b 0d 09 69 66 20 28 |( &aead |);..if (|
|000024c0| 20 6e 6f 45 72 72 20 21 | 3d 20 65 72 72 20 29 0d | noErr !|= err ).|
|000024d0| 09 7b 09 0d 09 09 41 45 | 44 69 73 70 6f 73 65 44 |.{....AE|DisposeD|
|000024e0| 65 73 63 20 28 20 26 61 | 65 20 29 3b 0d 09 09 72 |esc ( &a|e );...r|
|000024f0| 65 74 75 72 6e 3b 0d 09 | 7d 0d 09 74 65 6d 70 6c |eturn;..|}..templ|
|00002500| 6f 6e 67 20 3d 20 67 47 | 6c 6f 62 61 6c 73 50 74 |ong = gG|lobalsPt|
|00002510| 72 2d 3e 77 68 69 63 68 | 69 74 65 6d 3b 0d 09 65 |r->which|item;..e|
|00002520| 72 72 20 3d 20 41 45 50 | 75 74 50 61 72 61 6d 50 |rr = AEP|utParamP|
|00002530| 74 72 28 20 26 61 65 2c | 20 27 2d 2d 2d 2d 27 2c |tr( &ae,| '----',|
|00002540| 20 74 79 70 65 4c 6f 6e | 67 49 6e 74 65 67 65 72 | typeLon|gInteger|
|00002550| 2c 20 28 63 6f 6e 73 74 | 20 76 6f 69 64 2a 29 26 |, (const| void*)&|
|00002560| 74 65 6d 70 6c 6f 6e 67 | 2c 20 73 69 7a 65 6f 66 |templong|, sizeof|
|00002570| 28 74 65 6d 70 6c 6f 6e | 67 29 20 29 3b 0d 09 0d |(templon|g) );...|
|00002580| 09 70 41 65 52 65 70 6c | 79 2e 64 61 74 61 48 61 |.pAeRepl|y.dataHa|
|00002590| 6e 64 6c 65 20 3d 20 6e | 69 6c 20 3b 0d 09 0d 09 |ndle = n|il ;....|
|000025a0| 2f 2f 09 53 65 6e 64 20 | 74 68 65 20 41 70 70 6c |//.Send |the Appl|
|000025b0| 65 45 76 65 6e 74 20 61 | 6e 64 20 77 61 69 74 20 |eEvent a|nd wait |
|000025c0| 75 70 20 74 6f 20 6f 6e | 65 20 73 65 63 6f 6e 64 |up to on|e second|
|000025d0| 20 66 6f 72 20 61 20 72 | 65 70 6c 79 2e 0d 09 65 | for a r|eply...e|
|000025e0| 72 72 20 3d 20 41 45 53 | 65 6e 64 20 28 20 26 61 |rr = AES|end ( &a|
|000025f0| 65 2c 20 26 70 41 65 52 | 65 70 6c 79 2c 20 20 6b |e, &pAeR|eply,  k|
|00002600| 41 45 57 61 69 74 52 65 | 70 6c 79 2c 0d 09 09 6b |AEWaitRe|ply,...k|
|00002610| 41 45 4e 6f 72 6d 61 6c | 50 72 69 6f 72 69 74 79 |AENormal|Priority|
|00002620| 2c 20 6b 41 45 44 65 66 | 61 75 6c 74 54 69 6d 65 |, kAEDef|aultTime|
|00002630| 6f 75 74 2c 20 6e 69 6c | 2c 20 6e 69 6c 20 29 3b |out, nil|, nil );|
|00002640| 0d 09 0d 09 61 6e 45 72 | 72 20 3d 20 41 45 47 65 |....anEr|r = AEGe|
|00002650| 74 50 61 72 61 6d 50 74 | 72 28 26 70 41 65 52 65 |tParamPt|r(&pAeRe|
|00002660| 70 6c 79 2c 20 27 74 43 | 6e 74 27 2c 20 74 79 70 |ply, 'tC|nt', typ|
|00002670| 65 4c 6f 6e 67 49 6e 74 | 65 67 65 72 2c 20 26 74 |eLongInt|eger, &t|
|00002680| 79 70 65 43 6f 64 65 2c | 0d 09 09 26 74 65 6d 70 |ypeCode,|...&temp|
|00002690| 6c 6f 6e 67 2c 20 73 69 | 7a 65 6f 66 28 74 65 6d |long, si|zeof(tem|
|000026a0| 70 6c 6f 6e 67 29 2c 20 | 26 74 68 65 73 69 7a 65 |plong), |&thesize|
|000026b0| 29 3b 0d 09 69 66 20 28 | 61 6e 45 72 72 3d 3d 6e |);..if (|anErr==n|
|000026c0| 6f 45 72 72 29 0d 09 7b | 0d 09 09 67 47 6c 6f 62 |oErr)..{|...gGlob|
|000026d0| 61 6c 73 50 74 72 2d 3e | 6e 75 6d 62 65 72 6f 66 |alsPtr->|numberof|
|000026e0| 69 74 65 6d 73 20 3d 20 | 74 65 6d 70 6c 6f 6e 67 |items = |templong|
|000026f0| 3b 0d 09 7d 0d 09 65 6c | 73 65 0d 09 7b 0d 09 09 |;..}..el|se..{...|
|00002700| 67 47 6c 6f 62 61 6c 73 | 50 74 72 2d 3e 6e 75 6d |gGlobals|Ptr->num|
|00002710| 62 65 72 6f 66 69 74 65 | 6d 73 20 3d 20 30 3b 0d |berofite|ms = 0;.|
|00002720| 09 7d 0d 09 67 47 6c 6f | 62 61 6c 73 50 74 72 2d |.}..gGlo|balsPtr-|
|00002730| 3e 77 68 69 63 68 69 74 | 65 6d 20 2b 2b 3b 0d 09 |>whichit|em ++;..|
|00002740| 0d 09 61 6e 45 72 72 20 | 3d 20 41 45 47 65 74 50 |..anErr |= AEGetP|
|00002750| 61 72 61 6d 50 74 72 28 | 26 70 41 65 52 65 70 6c |aramPtr(|&pAeRepl|
|00002760| 79 2c 20 27 55 52 4c 20 | 27 2c 20 74 79 70 65 43 |y, 'URL |', typeC|
|00002770| 68 61 72 2c 20 26 74 79 | 70 65 43 6f 64 65 2c 0d |har, &ty|peCode,.|
|00002780| 09 09 26 74 65 6d 70 73 | 74 72 5b 31 5d 2c 20 32 |..&temps|tr[1], 2|
|00002790| 35 35 2c 20 26 74 68 65 | 73 69 7a 65 29 3b 0d 09 |55, &the|size);..|
|000027a0| 69 66 20 28 61 6e 45 72 | 72 21 3d 6e 6f 45 72 72 |if (anEr|r!=noErr|
|000027b0| 29 0d 09 7b 0d 09 09 74 | 68 65 73 69 7a 65 20 3d |)..{...t|hesize =|
|000027c0| 20 30 3b 0d 09 7d 0d 09 | 74 65 6d 70 73 74 72 5b | 0;..}..|tempstr[|
|000027d0| 30 5d 3d 74 68 65 73 69 | 7a 65 3b 0d 09 50 4c 73 |0]=thesi|ze;..PLs|
|000027e0| 74 72 63 70 79 28 67 47 | 6c 6f 62 61 6c 73 50 74 |trcpy(gG|lobalsPt|
|000027f0| 72 2d 3e 73 55 52 4c 2c | 20 74 65 6d 70 73 74 72 |r->sURL,| tempstr|
|00002800| 29 3b 0d 09 61 6e 45 72 | 72 20 3d 20 41 45 47 65 |);..anEr|r = AEGe|
|00002810| 74 50 61 72 61 6d 50 74 | 72 28 26 70 41 65 52 65 |tParamPt|r(&pAeRe|
|00002820| 70 6c 79 2c 20 27 43 6f | 6d 6d 27 2c 20 74 79 70 |ply, 'Co|mm', typ|
|00002830| 65 43 68 61 72 2c 20 26 | 74 79 70 65 43 6f 64 65 |eChar, &|typeCode|
|00002840| 2c 0d 09 09 26 74 65 6d | 70 73 74 72 5b 31 5d 2c |,...&tem|pstr[1],|
|00002850| 20 32 35 35 2c 20 26 74 | 68 65 73 69 7a 65 29 3b | 255, &t|hesize);|
|00002860| 0d 09 69 66 20 28 61 6e | 45 72 72 21 3d 6e 6f 45 |..if (an|Err!=noE|
|00002870| 72 72 29 0d 09 7b 0d 09 | 09 74 68 65 73 69 7a 65 |rr)..{..|.thesize|
|00002880| 20 3d 20 30 3b 0d 09 7d | 0d 09 74 65 6d 70 73 74 | = 0;..}|..tempst|
|00002890| 72 5b 30 5d 3d 74 68 65 | 73 69 7a 65 3b 0d 09 50 |r[0]=the|size;..P|
|000028a0| 4c 73 74 72 63 70 79 28 | 67 47 6c 6f 62 61 6c 73 |Lstrcpy(|gGlobals|
|000028b0| 50 74 72 2d 3e 73 43 6f | 6d 6d 65 6e 74 2c 20 74 |Ptr->sCo|mment, t|
|000028c0| 65 6d 70 73 74 72 29 3b | 0d 09 0d 09 61 6e 45 72 |empstr);|....anEr|
|000028d0| 72 20 3d 20 41 45 47 65 | 74 50 61 72 61 6d 50 74 |r = AEGe|tParamPt|
|000028e0| 72 28 26 70 41 65 52 65 | 70 6c 79 2c 20 27 54 69 |r(&pAeRe|ply, 'Ti|
|000028f0| 74 6c 27 2c 20 74 79 70 | 65 43 68 61 72 2c 20 26 |tl', typ|eChar, &|
|00002900| 74 79 70 65 43 6f 64 65 | 2c 0d 09 09 26 74 65 6d |typeCode|,...&tem|
|00002910| 70 73 74 72 5b 31 5d 2c | 20 32 35 35 2c 20 26 74 |pstr[1],| 255, &t|
|00002920| 68 65 73 69 7a 65 29 3b | 0d 09 69 66 20 28 61 6e |hesize);|..if (an|
|00002930| 45 72 72 21 3d 6e 6f 45 | 72 72 29 0d 09 7b 0d 09 |Err!=noE|rr)..{..|
|00002940| 09 74 68 65 73 69 7a 65 | 20 3d 20 30 3b 0d 09 7d |.thesize| = 0;..}|
|00002950| 0d 09 74 65 6d 70 73 74 | 72 5b 30 5d 3d 74 68 65 |..tempst|r[0]=the|
|00002960| 73 69 7a 65 3b 0d 09 50 | 4c 73 74 72 63 70 79 28 |size;..P|Lstrcpy(|
|00002970| 67 47 6c 6f 62 61 6c 73 | 50 74 72 2d 3e 73 54 69 |gGlobals|Ptr->sTi|
|00002980| 74 6c 65 2c 20 74 65 6d | 70 73 74 72 29 3b 0d 7d |tle, tem|pstr);.}|
|00002990| 0d 0d 73 74 61 74 69 63 | 20 76 6f 69 64 20 50 61 |..static| void Pa|
|000029a0| 74 63 68 55 73 49 6e 28 | 20 73 47 75 6c 6c 44 61 |tchUsIn(| sGullDa|
|000029b0| 74 61 50 74 72 09 67 47 | 6c 6f 62 61 6c 73 50 74 |taPtr.gG|lobalsPt|
|000029c0| 72 29 0d 7b 0d 09 53 61 | 76 65 4d 79 53 74 6f 72 |r).{..Sa|veMyStor|
|000029d0| 61 67 65 28 67 47 6c 6f | 62 61 6c 73 50 74 72 29 |age(gGlo|balsPtr)|
|000029e0| 3b 0d 09 0d 09 67 47 6c | 6f 62 61 6c 73 50 74 72 |;....gGl|obalsPtr|
|000029f0| 2d 3e 53 61 76 65 64 4d | 65 6e 75 4b 65 79 20 3d |->SavedM|enuKey =|
|00002a00| 20 28 4d 4b 43 61 6c 6c | 65 72 29 47 65 74 54 6f | (MKCall|er)GetTo|
|00002a10| 6f 6c 62 6f 78 54 72 61 | 70 41 64 64 72 65 73 73 |olboxTra|pAddress|
|00002a20| 28 5f 4d 65 6e 75 4b 65 | 79 29 3b 0d 09 67 47 6c |(_MenuKe|y);..gGl|
|00002a30| 6f 62 61 6c 73 50 74 72 | 2d 3e 53 61 76 65 64 4d |obalsPtr|->SavedM|
|00002a40| 65 6e 75 53 65 6c 65 63 | 74 20 3d 20 28 4d 53 43 |enuSelec|t = (MSC|
|00002a50| 61 6c 6c 65 72 29 47 65 | 74 54 6f 6f 6c 62 6f 78 |aller)Ge|tToolbox|
|00002a60| 54 72 61 70 41 64 64 72 | 65 73 73 28 5f 4d 65 6e |TrapAddr|ess(_Men|
|00002a70| 75 53 65 6c 65 63 74 29 | 3b 0d 09 0d 09 53 65 74 |uSelect)|;....Set|
|00002a80| 54 6f 6f 6c 62 6f 78 54 | 72 61 70 41 64 64 72 65 |ToolboxT|rapAddre|
|00002a90| 73 73 28 28 55 6e 69 76 | 65 72 73 61 6c 50 72 6f |ss((Univ|ersalPro|
|00002aa0| 63 50 74 72 29 20 4d 79 | 4d 65 6e 75 4b 65 79 20 |cPtr) My|MenuKey |
|00002ab0| 2c 20 5f 4d 65 6e 75 4b | 65 79 29 3b 0d 09 53 65 |, _MenuK|ey);..Se|
|00002ac0| 74 54 6f 6f 6c 62 6f 78 | 54 72 61 70 41 64 64 72 |tToolbox|TrapAddr|
|00002ad0| 65 73 73 28 28 55 6e 69 | 76 65 72 73 61 6c 50 72 |ess((Uni|versalPr|
|00002ae0| 6f 63 50 74 72 29 28 4d | 79 4d 65 6e 75 53 65 6c |ocPtr)(M|yMenuSel|
|00002af0| 65 63 74 29 2c 20 5f 4d | 65 6e 75 53 65 6c 65 63 |ect), _M|enuSelec|
|00002b00| 74 29 3b 09 0d 7d 0d 0d | 73 74 61 74 69 63 20 76 |t);..}..|static v|
|00002b10| 6f 69 64 20 4d 61 6b 65 | 4f 75 72 4d 65 6e 75 28 |oid Make|OurMenu(|
|00002b20| 20 73 47 75 6c 6c 44 61 | 74 61 50 74 72 09 67 47 | sGullDa|taPtr.gG|
|00002b30| 6c 6f 62 61 6c 73 50 74 | 72 29 0d 7b 0d 09 4d 65 |lobalsPt|r).{..Me|
|00002b40| 6e 75 48 61 6e 64 6c 65 | 09 74 68 65 6d 65 6e 75 |nuHandle|.themenu|
|00002b50| 3b 0d 09 53 74 72 32 35 | 35 20 74 65 6d 70 73 74 |;..Str25|5 tempst|
|00002b60| 72 20 3d 20 22 5c 70 58 | 22 3b 0d 09 6c 6f 6e 67 |r = "\pX|";..long|
|00002b70| 09 69 3b 0d 09 0d 09 67 | 47 6c 6f 62 61 6c 73 50 |.i;....g|GlobalsP|
|00002b80| 74 72 2d 3e 54 69 6d 65 | 54 6f 52 75 6e 20 3d 20 |tr->Time|ToRun = |
|00002b90| 66 61 6c 73 65 3b 0d 09 | 0d 09 67 47 6c 6f 62 61 |false;..|..gGloba|
|00002ba0| 6c 73 50 74 72 2d 3e 6d | 79 6d 65 6e 75 49 44 20 |lsPtr->m|ymenuID |
|00002bb0| 3d 20 33 32 37 36 37 3b | 0d 09 74 68 65 6d 65 6e |= 32767;|..themen|
|00002bc0| 75 20 3d 20 4e 65 77 4d | 65 6e 75 28 67 47 6c 6f |u = NewM|enu(gGlo|
|00002bd0| 62 61 6c 73 50 74 72 2d | 3e 6d 79 6d 65 6e 75 49 |balsPtr-|>mymenuI|
|00002be0| 44 2c 20 22 5c 70 57 65 | 62 41 72 72 61 6e 67 65 |D, "\pWe|bArrange|
|00002bf0| 72 22 29 3b 0d 09 41 70 | 70 65 6e 64 4d 65 6e 75 |r");..Ap|pendMenu|
|00002c00| 28 74 68 65 6d 65 6e 75 | 2c 20 22 5c 70 41 64 64 |(themenu|, "\pAdd|
|00002c10| 20 42 6f 6f 6b 6d 61 72 | 6b 3b 47 65 74 20 43 6f | Bookmar|k;Get Co|
|00002c20| 6d 6d 65 6e 74 c9 3b 28 | 2d 22 29 3b 0d 09 0d 09 |mment.;(|-");....|
|00002c30| 67 47 6c 6f 62 61 6c 73 | 50 74 72 2d 3e 77 68 69 |gGlobals|Ptr->whi|
|00002c40| 63 68 69 74 65 6d 20 3d | 20 31 3b 0d 09 67 47 6c |chitem =| 1;..gGl|
|00002c50| 6f 62 61 6c 73 50 74 72 | 2d 3e 6e 75 6d 62 65 72 |obalsPtr|->number|
|00002c60| 6f 66 69 74 65 6d 73 20 | 3d 20 32 3b 0d 09 64 6f |ofitems |= 2;..do|
|00002c70| 0d 09 7b 0d 09 09 47 65 | 74 55 52 4c 49 6e 66 6f |..{...Ge|tURLInfo|
|00002c80| 28 67 47 6c 6f 62 61 6c | 73 50 74 72 29 3b 0d 09 |(gGlobal|sPtr);..|
|00002c90| 09 69 66 20 28 67 47 6c | 6f 62 61 6c 73 50 74 72 |.if (gGl|obalsPtr|
|00002ca0| 2d 3e 73 54 69 74 6c 65 | 5b 30 5d 29 0d 09 09 7b |->sTitle|[0])...{|
|00002cb0| 0d 09 09 09 50 4c 73 74 | 72 63 70 79 28 74 65 6d |....PLst|rcpy(tem|
|00002cc0| 70 73 74 72 2c 67 47 6c | 6f 62 61 6c 73 50 74 72 |pstr,gGl|obalsPtr|
|00002cd0| 2d 3e 73 54 69 74 6c 65 | 29 3b 0d 09 09 7d 0d 09 |->sTitle|);...}..|
|00002ce0| 09 65 6c 73 65 0d 09 09 | 7b 0d 09 09 09 50 4c 73 |.else...|{....PLs|
|00002cf0| 74 72 63 70 79 28 74 65 | 6d 70 73 74 72 2c 67 47 |trcpy(te|mpstr,gG|
|00002d00| 6c 6f 62 61 6c 73 50 74 | 72 2d 3e 73 55 52 4c 29 |lobalsPt|r->sURL)|
|00002d10| 3b 0d 09 09 7d 0d 09 09 | 41 70 70 65 6e 64 4d 65 |;...}...|AppendMe|
|00002d20| 6e 75 28 74 68 65 6d 65 | 6e 75 2c 20 22 5c 70 78 |nu(theme|nu, "\px|
|00002d30| 22 29 3b 0d 09 09 53 65 | 74 4d 65 6e 75 49 74 65 |");...Se|tMenuIte|
|00002d40| 6d 54 65 78 74 28 74 68 | 65 6d 65 6e 75 2c 20 43 |mText(th|emenu, C|
|00002d50| 6f 75 6e 74 4d 49 74 65 | 6d 73 28 74 68 65 6d 65 |ountMIte|ms(theme|
|00002d60| 6e 75 29 2c 20 74 65 6d | 70 73 74 72 29 3b 0d 09 |nu), tem|pstr);..|
|00002d70| 7d 0d 09 77 68 69 6c 65 | 20 28 67 47 6c 6f 62 61 |}..while| (gGloba|
|00002d80| 6c 73 50 74 72 2d 3e 77 | 68 69 63 68 69 74 65 6d |lsPtr->w|hichitem|
|00002d90| 20 3c 3d 20 67 47 6c 6f | 62 61 6c 73 50 74 72 2d | <= gGlo|balsPtr-|
|00002da0| 3e 6e 75 6d 62 65 72 6f | 66 69 74 65 6d 73 29 3b |>numbero|fitems);|
|00002db0| 0d 09 0d 09 49 6e 73 65 | 72 74 4d 65 6e 75 28 74 |....Inse|rtMenu(t|
|00002dc0| 68 65 6d 65 6e 75 2c 20 | 30 29 3b 0d 09 44 72 61 |hemenu, |0);..Dra|
|00002dd0| 77 4d 65 6e 75 42 61 72 | 28 29 3b 0d 09 0d 7d 0d |wMenuBar|();...}.|
|00002de0| 0d 76 6f 69 64 20 50 6f | 6c 6c 57 48 61 6e 64 6c |.void Po|llWHandl|
|00002df0| 65 72 20 28 50 6f 69 6e | 74 09 77 68 65 72 65 29 |er (Poin|t.where)|
|00002e00| 0d 7b 0d 09 4f 53 45 72 | 72 09 61 6e 45 72 72 3b |.{..OSEr|r.anErr;|
|00002e10| 0d 09 4f 53 54 79 70 65 | 09 74 68 65 49 44 3b 0d |..OSType|.theID;.|
|00002e20| 09 75 6e 73 69 67 6e 65 | 64 20 6c 6f 6e 67 09 6e |.unsigne|d long.n|
|00002e30| 6f 77 3b 0d 09 6c 6f 6e | 67 20 73 65 6c 53 74 61 |ow;..lon|g selSta|
|00002e40| 72 74 3b 0d 09 6c 6f 6e | 67 20 73 65 6c 45 6e 64 |rt;..lon|g selEnd|
|00002e50| 3b 0d 09 49 43 45 72 72 | 6f 72 09 74 68 65 65 72 |;..ICErr|or.theer|
|00002e60| 72 3b 0d 09 53 74 72 33 | 31 09 4e 69 6c 53 74 72 |r;..Str3|1.NilStr|
|00002e70| 3d 22 5c 70 22 3b 0d 09 | 47 72 61 66 50 74 72 09 |="\p";..|GrafPtr.|
|00002e80| 74 65 6d 70 70 6f 72 74 | 3b 0d 09 0d 09 69 66 20 |tempport|;....if |
|00002e90| 28 67 4f 75 72 47 6c 6f | 62 61 6c 73 2d 3e 54 69 |(gOurGlo|bals->Ti|
|00002ea0| 6d 65 54 6f 52 75 6e 29 | 0d 09 7b 0d 09 09 67 4f |meToRun)|..{...gO|
|00002eb0| 75 72 47 6c 6f 62 61 6c | 73 2d 3e 54 69 6d 65 54 |urGlobal|s->TimeT|
|00002ec0| 6f 52 75 6e 20 3d 20 66 | 61 6c 73 65 3b 0d 09 09 |oRun = f|alse;...|
|00002ed0| 73 65 6c 53 74 61 72 74 | 20 3d 20 30 3b 20 73 65 |selStart| = 0; se|
|00002ee0| 6c 45 6e 64 20 3d 20 67 | 4f 75 72 47 6c 6f 62 61 |lEnd = g|OurGloba|
|00002ef0| 6c 73 2d 3e 73 55 52 4c | 5b 30 5d 3b 0d 09 09 74 |ls->sURL|[0];...t|
|00002f00| 68 65 65 72 72 20 3d 20 | 49 43 4c 61 75 6e 63 68 |heerr = |ICLaunch|
|00002f10| 55 52 4c 28 67 69 6e 73 | 74 2c 20 4e 69 6c 53 74 |URL(gins|t, NilSt|
|00002f20| 72 2c 20 28 63 68 61 72 | 2a 29 28 26 67 4f 75 72 |r, (char|*)(&gOur|
|00002f30| 47 6c 6f 62 61 6c 73 2d | 3e 73 55 52 4c 5b 31 5d |Globals-|>sURL[1]|
|00002f40| 29 2c 0d 09 09 09 09 09 | 67 4f 75 72 47 6c 6f 62 |),......|gOurGlob|
|00002f50| 61 6c 73 2d 3e 73 55 52 | 4c 5b 30 5d 2c 20 26 73 |als->sUR|L[0], &s|
|00002f60| 65 6c 53 74 61 72 74 2c | 20 26 73 65 6c 45 6e 64 |elStart,| &selEnd|
|00002f70| 29 3b 0d 09 09 09 09 0d | 09 7d 0d 7d 0d 0d 70 61 |);......|.}.}..pa|
|00002f80| 73 63 61 6c 20 42 6f 6f | 6c 65 61 6e 09 43 61 6c |scal Boo|lean.Cal|
|00002f90| 6c 65 64 48 61 6e 64 6c | 65 41 6e 45 76 65 6e 74 |ledHandl|eAnEvent|
|00002fa0| 28 45 76 65 6e 74 52 65 | 63 6f 72 64 2a 20 65 76 |(EventRe|cord* ev|
|00002fb0| 65 6e 74 2c 20 73 47 75 | 6c 6c 44 61 74 61 50 74 |ent, sGu|llDataPt|
|00002fc0| 72 09 67 47 6c 6f 62 61 | 6c 73 50 74 72 29 0d 7b |r.gGloba|lsPtr).{|
|00002fd0| 0d 09 73 68 6f 72 74 09 | 09 70 61 72 74 2c 20 65 |..short.|.part, e|
|00002fe0| 72 72 3b 0d 09 57 69 6e | 64 6f 77 50 74 72 09 77 |rr;..Win|dowPtr.w|
|00002ff0| 69 6e 64 6f 77 3b 0d 09 | 42 6f 6f 6c 65 61 6e 09 |indow;..|Boolean.|
|00003000| 09 68 69 74 3b 0d 09 63 | 68 61 72 09 09 6b 65 79 |.hit;..c|har..key|
|00003010| 3b 0d 09 50 6f 69 6e 74 | 09 09 61 50 6f 69 6e 74 |;..Point|..aPoint|
|00003020| 3b 0d 09 52 65 63 74 09 | 09 74 65 6d 70 72 65 63 |;..Rect.|.temprec|
|00003030| 74 3b 0d 09 4d 65 6e 75 | 48 61 6e 64 6c 65 09 6d |t;..Menu|Handle.m|
|00003040| 68 3b 0d 0d 09 69 66 20 | 28 47 65 74 43 75 72 72 |h;...if |(GetCurr|
|00003050| 65 6e 74 53 69 67 6e 61 | 74 75 72 65 28 29 3d 3d |entSigna|ture()==|
|00003060| 67 47 6c 6f 62 61 6c 73 | 50 74 72 2d 3e 67 42 72 |gGlobals|Ptr->gBr|
|00003070| 6f 77 73 65 72 43 72 65 | 61 74 6f 72 29 0d 09 7b |owserCre|ator)..{|
|00003080| 0d 09 09 69 66 20 28 67 | 47 6c 6f 62 61 6c 73 50 |...if (g|GlobalsP|
|00003090| 74 72 2d 3e 67 49 48 61 | 76 65 50 61 74 63 68 65 |tr->gIHa|vePatche|
|000030a0| 64 29 0d 09 09 7b 0d 09 | 09 09 69 66 20 28 67 47 |d)...{..|..if (gG|
|000030b0| 6c 6f 62 61 6c 73 50 74 | 72 2d 3e 67 54 69 6d 65 |lobalsPt|r->gTime|
|000030c0| 54 6f 42 75 69 6c 64 4d | 65 6e 75 29 0d 09 09 09 |ToBuildM|enu)....|
|000030d0| 7b 0d 09 09 09 09 67 47 | 6c 6f 62 61 6c 73 50 74 |{.....gG|lobalsPt|
|000030e0| 72 2d 3e 67 54 69 6d 65 | 54 6f 42 75 69 6c 64 4d |r->gTime|ToBuildM|
|000030f0| 65 6e 75 20 3d 20 66 61 | 6c 73 65 3b 0d 09 09 09 |enu = fa|lse;....|
|00003100| 09 6d 68 20 3d 20 47 65 | 74 4d 65 6e 75 48 61 6e |.mh = Ge|tMenuHan|
|00003110| 64 6c 65 28 67 47 6c 6f | 62 61 6c 73 50 74 72 2d |dle(gGlo|balsPtr-|
|00003120| 3e 6d 79 6d 65 6e 75 49 | 44 29 3b 0d 09 09 09 09 |>mymenuI|D);.....|
|00003130| 69 66 20 28 6d 68 29 0d | 09 09 09 09 7b 0d 09 09 |if (mh).|....{...|
|00003140| 09 09 09 44 65 6c 65 74 | 65 4d 65 6e 75 28 67 47 |...Delet|eMenu(gG|
|00003150| 6c 6f 62 61 6c 73 50 74 | 72 2d 3e 6d 79 6d 65 6e |lobalsPt|r->mymen|
|00003160| 75 49 44 29 3b 0d 09 09 | 09 09 09 44 69 73 70 6f |uID);...|...Dispo|
|00003170| 73 65 4d 65 6e 75 28 6d | 68 29 3b 0d 09 09 09 09 |seMenu(m|h);.....|
|00003180| 09 44 72 61 77 4d 65 6e | 75 42 61 72 28 29 3b 0d |.DrawMen|uBar();.|
|00003190| 09 09 09 09 7d 0d 09 09 | 09 09 4d 61 6b 65 4f 75 |....}...|..MakeOu|
|000031a0| 72 4d 65 6e 75 28 67 47 | 6c 6f 62 61 6c 73 50 74 |rMenu(gG|lobalsPt|
|000031b0| 72 29 3b 0d 09 09 09 7d | 0d 09 09 7d 0d 09 09 65 |r);....}|...}...e|
|000031c0| 6c 73 65 0d 09 09 7b 0d | 09 09 09 0d 09 09 09 67 |lse...{.|.......g|
|000031d0| 47 6c 6f 62 61 6c 73 50 | 74 72 2d 3e 67 49 48 61 |GlobalsP|tr->gIHa|
|000031e0| 76 65 50 61 74 63 68 65 | 64 20 3d 20 74 72 75 65 |vePatche|d = true|
|000031f0| 3b 0d 09 09 09 67 47 6c | 6f 62 61 6c 73 50 74 72 |;....gGl|obalsPtr|
|00003200| 2d 3e 67 54 69 6d 65 54 | 6f 42 75 69 6c 64 4d 65 |->gTimeT|oBuildMe|
|00003210| 6e 75 20 3d 20 66 61 6c | 73 65 3b 0d 09 09 09 50 |nu = fal|se;....P|
|00003220| 61 74 63 68 55 73 49 6e | 28 67 47 6c 6f 62 61 6c |atchUsIn|(gGlobal|
|00003230| 73 50 74 72 29 3b 0d 09 | 09 09 4d 61 6b 65 4f 75 |sPtr);..|..MakeOu|
|00003240| 72 4d 65 6e 75 28 67 47 | 6c 6f 62 61 6c 73 50 74 |rMenu(gG|lobalsPt|
|00003250| 72 29 3b 0d 09 09 7d 0d | 09 7d 0d 09 65 6c 73 65 |r);...}.|.}..else|
|00003260| 0d 09 7b 0d 09 09 67 47 | 6c 6f 62 61 6c 73 50 74 |..{...gG|lobalsPt|
|00003270| 72 2d 3e 67 54 69 6d 65 | 54 6f 42 75 69 6c 64 4d |r->gTime|ToBuildM|
|00003280| 65 6e 75 20 3d 20 74 72 | 75 65 3b 0d 09 7d 0d 09 |enu = tr|ue;..}..|
|00003290| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 3b 0d 7d 0d |return f|alse;.}.|
|000032a0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003300| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00003310| 00 00 00 ff f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 ff |........|........|
|00003320| 00 00 00 ff f5 f5 f5 ff | ff ff ff ff f5 f5 f5 ff |........|........|
|00003330| 0b 4d 48 48 61 6e 64 6c | 65 72 2e 63 02 00 00 00 |.MHHandl|er.c....|
|00003340| 54 45 58 54 43 57 49 45 | 01 00 ff ff ff ff 00 00 |TEXTCWIE|........|
|00003350| 00 00 54 45 58 54 43 57 | 49 45 01 00 ff ff ff ff |..TEXTCW|IE......|
|00003360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003370| 00 00 ad 48 e1 2a 00 00 | 32 21 00 00 01 9a f5 ff |...H.*..|2!......|
|00003380| 00 00 00 ff f5 f5 ff ff | ff ff ff f5 f5 f5 f5 ff |........|........|
|00003390| 00 00 00 ff f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 ff |........|........|
|000033a0| 00 00 00 ff f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 ff |........|........|
|000033b0| 00 00 00 ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000033c0| 00 00 1f ff fc 00 10 00 | 06 00 10 00 05 00 10 00 |........|........|
|000033d0| 04 80 10 00 04 40 10 00 | 04 20 10 00 07 f0 10 00 |.....@..|. ......|
|000033e0| 00 10 10 43 0c 10 10 c5 | 96 10 10 46 9a 10 10 e3 |...C....|...F....|
|000033f0| 0c 10 10 00 00 10 10 00 | 00 10 14 99 9d d0 13 22 |........|......."|
|00003400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00003410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003420| 00 00 00 00 00 00 00 03 | 00 04 00 58 00 04 01 d9 |........|...X....|
|00003430| 02 73 00 58 00 04 01 d9 | 02 73 ad f0 a8 dd 00 00 |.s.X....|.s......|
|00003440| 01 c7 00 00 01 c7 00 00 | 00 00 01 00 00 00 00 04 |........|........|
|00003450| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00003460| 00 00 00 46 01 d4 21 08 | 28 c4 00 00 00 1c 00 46 |...F..!.|(......F|
|00003470| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00003480| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00003490| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|000034a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+